A024552 a(n) = [ n/{n*sqrt(5)} ], where {x} := x - [ x ].

4, 4, 4, 4, 27, 14, 10, 9, 72, 27, 18, 14, 188, 45, 27, 20, 1292, 72, 39, 27, 21, 113, 53, 36, 27, 188, 72, 45, 34, 365, 97, 57, 41, 1292, 133, 72, 50, 39, 188, 90, 60, 45, 284, 113, 72, 53, 493, 144, 86, 62, 1292, 188, 103, 72, 55, 254, 125, 83, 63, 365, 152, 97, 72, 590, 188, 113, 82

Offset

1,1

Links

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

Mathematica

Table[Floor[n/FractionalPart[n*Sqrt[5]]], {n, 1, 100}]
(* Clark Kimberling, Aug 16 2012 *)

Crossrefs

Cf. A024553.

Sequence in context: A100777 A309501 A024727 * A264768 A201981 A309500

Adjacent sequences: A024549 A024550 A024551 * A024553 A024554 A024555

Keyword

nonn

Author

Clark Kimberling

Status

approved