|
%I #11 Oct 04 2016 03:34:28
%S 1,0,1,0,0,1,0,1,1,0,1,0,0,1,0,1,1,0,1,0,1,1,0,1,0,0,1,0,1,1,0,1,0,0,
%T 1,0,1,1,0,1,0,1,1,0,1,0,0,1,0,1,1,0,1,0,1,1,0,1,0,0,1,0,1,1,0,1,0,0,
%U 1,0,1,1,0,1,0,1,1,0,1,0,0,1,0,1,1,0,1,0,0,1,0,1,1,0,1,0,1,1,0,1,0,0,1,0,1,1,0,1,0,1,1,0,1,0,0,1,0,1,1,0,1,0,0,1,0,1,1,0,1,0,1,1,0,1,0,0,1,0,1,1,0,1,0,1,1,0,1,0,0,1,0,1,1,0,1,0,0,1,0,1,1,0,1,0,1,1,0,1,0,0,1,0,1,1,0,1,0,0,1
%N [4r]-[nr]-[4r-nr], where r=(1+sqrt(5))/2 and [.]=floor.
%C See A188294. First differs from A078588 at the 38th term.
%C (a(n)) is essentially the same as A188014 and also as A187950. The second sequence is a shift of (a(n)), and the first sequence is obtained by applying [-x]=[x]-1 for all non-integer x. This gives a(n) = 1-A188014(n) for all n not equal to 4. - _Michel Dekking_, Oct 04 2016
%F a(n)=[4r]-[nr]-[4r-nr], where r=(1+sqrt(5))/2.
%t r = (1 + 5^(1/2))/2 + .0000000000001;
%t f[n_] := Floor[4r] - Floor[n*r] - Floor[4r - n*r]
%t t = Flatten[Table[f[n], {n, 1, 200}]] (* A188467 *)
%t Flatten[Position[t, 0] ] (* A188468 *)
%t Flatten[Position[t, 1] ] (* A188469 *)
%Y Cf. A188294, A188468, A188469.
%K nonn
%O 1
%A _Clark Kimberling_, Apr 01 2011
|
