[go: up one dir, main page]

login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A081117
Differences of Beatty sequence for cube root of 2.
2
1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 2, 1
OFFSET
0,4
FORMULA
a(n)=floor((n+1)*2^(1/3))-floor(n*2^(1/3))
MATHEMATICA
With[{c=Surd[2, 3]}, Differences[Floor[Range[0, 110]c]]] (* Harvey P. Dale, Jan 30 2015 *)
PROG
(PARI) a(n)=floor((n+1)*2^(1/3))-floor(n*2^(1/3))
CROSSREFS
Sequence in context: A069291 A364209 A268238 * A368334 A129252 A327936
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Apr 16 2003
STATUS
approved