A024564 a(n) = [ 1/{n*sqrt(7)} ], where {x} := x - [ x ].

1, 3, 1, 1, 4, 1, 1, 6, 1, 2, 9, 1, 2, 24, 1, 3, 1, 1, 3, 1, 1, 4, 1, 2, 6, 1, 2, 12, 1, 2, 54, 1, 3, 1, 1, 4, 1, 1, 5, 1, 2, 8, 1, 2, 17, 1, 2, 1, 1, 3, 1, 1, 4, 1, 1, 6, 1, 2, 10, 1, 2, 27, 1, 3, 1, 1, 3, 1, 1, 4, 1, 2, 7, 1, 2, 12, 1, 2, 69, 1, 3, 1, 1, 4, 1, 1, 5, 1, 2, 8, 1, 2, 18, 1, 2

Offset

1,2

Links

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

Mathematica

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

Crossrefs

Cf. A024563.

Sequence in context: A000503 A254864 A111956 * A084795 A364097 A030184

Adjacent sequences: A024561 A024562 A024563 * A024565 A024566 A024567

Keyword

nonn

Author

Clark Kimberling

Extensions

Corrected by Clark Kimberling, Aug 15 2012

Status

approved