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

2, 2, 8, 5, 20, 8, 47, 13, 198, 20, 11, 30, 15, 47, 20, 83, 26, 198, 35, 20, 47, 24, 67, 30, 105, 37, 198, 47, 823, 61, 33, 83, 39, 120, 47, 198, 58, 471, 73, 40, 95, 47, 131, 56, 198, 67, 372, 83, 1960, 105, 55, 139, 64, 198, 76, 326, 91, 823, 113, 61, 145, 71, 198, 83, 299, 99, 578

Offset

1,1

Links

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

Mathematica

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

Crossrefs

Cf. A024559.

Sequence in context: A336198 A241328 A223041 * A238452 A103238 A119999

Adjacent sequences: A024555 A024556 A024557 * A024559 A024560 A024561

Keyword

nonn

Author

Clark Kimberling

Status

approved