A188467 - OEIS

%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