A024569 [ 1/{n*r} ], where r = (1 + sqrt(5))/2 and {x} := x - [ x ].

1, 4, 1, 2, 11, 1, 3, 1, 1, 5, 1, 2, 29, 1, 3, 1, 1, 8, 1, 2, 1, 1, 4, 1, 2, 14, 1, 3, 1, 1, 6, 1, 2, 76, 1, 4, 1, 2, 9, 1, 2, 1, 1, 5, 1, 2, 21, 1, 3, 1, 1, 7, 1, 2, 1, 1, 4, 1, 2, 12, 1, 3, 1, 1, 5, 1, 2, 38, 1, 3, 1, 2, 8, 1, 2, 1, 1, 4, 1, 2, 16, 1, 3, 1, 1, 6, 1, 2, 199, 1, 4, 1, 2, 10

Offset

1,2

Comments

A024569(n) = 1 iff A078588 = 1. A024569(n) = 1 iff A089808 is not 1. Either A024569(n) or A089809(n) = 1, but not both. A024569(n) is the complement of A089809(n). - Gary W. Adamson, Nov 11 2003

Links

Clark Kimberling, Table of n, a(n) for n = 1..1000

Mathematica

Table[Floor[1/FractionalPart[n*GoldenRatio]], {n, 100}] (* Clark Kimberling, Aug 15 2012 *)

Crossrefs

Cf. A078588, A089808, A089809, A024570.

Sequence in context: A084604 A152253 A280440 * A206692 A159756 A110559

Adjacent sequences: A024566 A024567 A024568 * A024570 A024571 A024572

Keyword

nonn

Author

Clark Kimberling

Extensions

Corrected by Clark Kimberling, Aug 15 2012

Status

approved