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

 

Logo


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

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: 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.

License Agreements, Terms of Use, Privacy Policy. .

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