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

1, 8, 3, 8, 55, 8, 21, 8, 16, 55, 13, 28, 377, 21, 55, 18, 33, 144, 25, 55, 21, 36, 107, 28, 55, 377, 39, 91, 31, 55, 194, 41, 83, 2584, 55, 144, 42, 78, 377, 55, 120, 43, 74, 227, 55, 107, 987, 72, 172, 55, 98, 377, 70, 144, 55, 91, 250, 68, 127, 731, 87, 194, 67, 115, 377, 83, 164

Offset: 1

Author

Clark Kimberling

Keywords

• nonn

Links

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

Crossrefs

Cf. A024569.

Programs

Mathematica

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