The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A187948 [nr+kr]-[nr]-[kr], where r=(1+sqrt(5))/2, k=6, [ ]=floor. 3
 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 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1 COMMENTS See A187950. LINKS 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: A307183 A117568 A093521 * A188433 A267635 A267034 Adjacent sequences:  A187945 A187946 A187947 * A187949 A187950 A187951 KEYWORD nonn AUTHOR Clark Kimberling, Mar 16 2011 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified September 26 20:36 EDT 2020. Contains 337374 sequences. (Running on oeis4.)