A081117 Differences of Beatty sequence for cube root of 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

Links

Table of n, a(n) for n=0..104.

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

Adjacent sequences: A081114 A081115 A081116 * A081118 A081119 A081120

Keyword

nonn

Author

Benoit Cloitre, Apr 16 2003

Status

approved