A188436 [3r]-[nr]-[3r-nr], where r=(1+sqrt(5))/2 and [.]=floor.

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

Links

Table of n, a(n) for n=1..144.

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

Cf. A188011, A188437, A188438, A188294.

Sequence in context: A072401 A064873 A295659 * A037823 A293162 A115790

Adjacent sequences: A188433 A188434 A188435 * A188437 A188438 A188439

Keyword

nonn

Author

Clark Kimberling, Mar 31 2011

Status

approved