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

1, 6, 3, 6, 21, 6, 13, 48, 11, 21, 106, 16, 32, 345, 21, 48, 17, 28, 70, 21, 37, 106, 26, 48, 173, 32, 62, 345, 39, 80, 1694, 48, 106, 35, 58, 145, 41, 70, 211, 48, 86, 345, 56, 106, 765, 65, 134, 48, 76, 173, 54, 89, 235, 62, 106, 345, 70, 127, 593, 80, 156, 1694, 92, 195, 66, 106

Offset

1,2

Links

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

Mathematica

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

Crossrefs

Cf. A024564.

Sequence in context: A137275 A263188 A268618 * A319232 A265179 A215608

Adjacent sequences: A024560 A024561 A024562 * A024564 A024565 A024566

Keyword

nonn

Author

Clark Kimberling

Status

approved