1
This is column 3 of the array A188294.
This sequence is essentially the same as A188011. - Michel Dekking, Oct 03 2016
Table of n, a(n) for n=1..144.
a(n) = [3r]-[nr]-[3r-nr], where r=(1+sqrt(5))/2.
a(n) = 1-A188011(n) for all n>0, except for n= 3 (from [-x]=-[x]-1 for non-integer x). - Michel Dekking, Oct 03 2016
r = (1 + 5^(1/2))/2 + .0000000000001;
f[n_] := Floor[3r] - Floor[n*r] - Floor[3r - n*r]
t = Flatten[Table[f[n], {n, 1, 200}]] (* A188436 *)
Flatten[Position[t, 0] ] (* A188437 *)
Flatten[Position[t, 1] ] (* A188438 *)
Cf. A188011, A188437, A188438, A188294.
Sequence in context: A276404 A277153 A187946 * A293162 A175854 A185708
Adjacent sequences: A188433 A188434 A188435 * A188437 A188438 A188439
nonn
Clark Kimberling, Mar 31 2011
approved