A187948 [nr+kr]-[nr]-[kr], where r=(1+sqrt(5))/2, k=6, [ ]=floor.

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

Offset

1

Comments

See A187950.

Links

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

Formula

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

Mathematica

r=(1+5^(1/2))/2;
seqA=Table[Floor[(n+6)r]-Floor[n*r]-9, {n, 1, 220}]   (* A187948 *)
Flatten[Position[seqA, 0] ]   (* A187949 *)
Flatten[Position[seqA, 1] ]   (* A187953 *)
f[n_]:=Module[{a=GoldenRatio*n, b=GoldenRatio*6}, Floor[a+b]-Floor[a]-Floor[b]]; Array[f, 130] (* Harvey P. Dale, Jan 10 2013 *)

Crossrefs

Cf. A187950, A187949, A187953.

Sequence in context: A361433 A117568 A093521 * A188433 A267635 A267034

Adjacent sequences: A187945 A187946 A187947 * A187949 A187950 A187951

Keyword

nonn

Author

Clark Kimberling, Mar 16 2011

Status

approved