login
A024569
[ 1/{n*r} ], where r = (1 + sqrt(5))/2 and {x} := x - [ x ].
6
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
MATHEMATICA
Table[Floor[1/FractionalPart[n*GoldenRatio]], {n, 100}] (* Clark Kimberling, Aug 15 2012 *)
CROSSREFS
KEYWORD
nonn
EXTENSIONS
Corrected by Clark Kimberling, Aug 15 2012
STATUS
approved