%I A059651
%S A059651 0,1,0,0,1,1,0,0,1,0,1,0,0,1,0,0,1,1,0,1,1,0,1,0,0,1,0,1,1,0,0,1,1,0,0,
               1,0,0,0,1,
%T A059651 0,0,0,1,1,0,1,1,0,0,0,1,0,0,1,0,1,0,0,1,0,0,1,0,0,0,1,0,1,0,0,1,0,0,1,
               0,0,1,1,0,
%U A059651 0,1,0,1,0,1,1,0,0,1,1,0,1,1,0,0,0,1,0,0,0,1,1,0,1,1,0,0,1,0,0,0,1,0,1,
               0,0,1,0,0
%V A059651 0,-1,0,0,-1,-1,0,0,-1,0,-1,0,0,-1,0,0,-1,-1,0,1,-1,0,-1,0,0,-1,0,-1,-1,
               0,0,-1,-1,0,0,-1,0,0,0,-1,
%W A059651 0,0,0,-1,-1,0,1,-1,0,0,0,-1,0,0,-1,0,-1,0,0,-1,0,0,-1,0,0,0,-1,0,-1,0,
               0,-1,0,0,-1,0,0,-1,-1,0,
%X A059651 0,-1,0,-1,0,-1,-1,0,0,-1,-1,0,1,-1,0,0,0,-1,0,0,0,-1,-1,0,-1,-1,0,0,-1,
               0,0,0,-1,0,-1,0,0,-1,0,0
%N A059651 a(n) = [[(k^2)*n]-(k*[k*n])], where k = cube root of 2 and [] is the 
               floor function.
%C A059651 The values of (floor((k^2)*j)-(k*(floor(k*j)))) for j=0..50, where k=2^(1/
               3), are 0, -0.259921, 0.480158, 0.220237, -0.299605, -0.559526, 0.180553, 
               0.92063, -0.59921, ...
%p A059651 Digits := 89; floor_diffs_floored(evalf(2^(1/3)),120);
%Y A059651 A059648 gives similar sequence for k=sqrt(2). Positions of +1's: A059657, 
               positions of -1's A059659.
%Y A059651 Sequence in context: A108736 A079813 A078580 this_sequence A084091 A080846 
               A082401
%Y A059651 Adjacent sequences: A059648 A059649 A059650 this_sequence A059652 A059653 
               A059654
%K A059651 sign
%O A059651 0,1
%A A059651 Antti Karttunen Feb 03 2001