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

Author

Clark Kimberling

Keywords

• nonn

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

Crossrefs

Cf. A078588, A089808, A089809, A024570.

Programs

Mathematica

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

Extensions

Corrected by Clark Kimberling, Aug 15 2012