A188472 a(n) = [6r]-[nr]-[6r-nr], where r=(1+sqrt(5))/2 and []=floor.

0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0

Offset

1

Comments

See A188294.

Essentially the same as A188017. - Michel Dekking, Oct 15 2016

Links

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

Formula

a(n) = [6r]-[nr]-[6r-nr], where r=(1+sqrt(5))/2.

a(n) = 1-A188017(n) for n not equal to 6 (from [-x]=-[x]-1 for non-integer x). - Michel Dekking, Oct 15 2016

Mathematica

r = (1 + 5^(1/2))/2 + .0000000000001;
f[n_] := Floor[6r] - Floor[n*r] - Floor[6r - n*r]
t = Flatten[Table[f[n], {n, 1, 200}]] (* A188472 *)
Flatten[Position[t, 0] ]  (* complement of A188473 *)
Flatten[Position[t, 1] ]  (* A188473 *)
f[n_]:=Module[{gr6=6*GoldenRatio, nr=n*GoldenRatio}, Floor[gr6] - Floor[nr] - Floor[gr6-nr]]; Array[f, 140] (* Harvey P. Dale, Nov 14 2012 *)

Crossrefs

Cf. A188294, A188473, A188017.

Sequence in context: A103589 A305388 A123740 * A286044 A129272 A059648

Adjacent sequences: A188469 A188470 A188471 * A188473 A188474 A188475

Keyword

nonn

Author

Clark Kimberling, Apr 01 2011

Status

approved