|
%I #7 Jan 30 2015 13:17:00
%S 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,
%T 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,
%U 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
%N Differences of Beatty sequence for cube root of 2.
%F a(n)=floor((n+1)*2^(1/3))-floor(n*2^(1/3))
%t With[{c=Surd[2,3]},Differences[Floor[Range[0,110]c]]] (* _Harvey P. Dale_, Jan 30 2015 *)
%o (PARI) a(n)=floor((n+1)*2^(1/3))-floor(n*2^(1/3))
%K nonn
%O 0,4
%A _Benoit Cloitre_, Apr 16 2003
|
