login
A188436
[3r]-[nr]-[3r-nr], where r=(1+sqrt(5))/2 and [.]=floor.
5
0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1
OFFSET
1
COMMENTS
This is column 3 of the array A188294.
This sequence is essentially the same as A188011. - Michel Dekking, Oct 03 2016
FORMULA
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
MATHEMATICA
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 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Mar 31 2011
STATUS
approved