login
A024566
a(n) = [ sum of 1/{k*sqrt(7)} ] for k = 1,2,...,n, where {x} := x - [ x ].
2
1, 4, 6, 7, 12, 13, 15, 21, 22, 24, 34, 35, 38, 62, 64, 67, 68, 69, 73, 74, 76, 81, 82, 84, 91, 92, 95, 107, 108, 111, 166, 167, 170, 171, 173, 177, 178, 180, 186, 187, 189, 197, 198, 201, 218, 219, 222, 223, 225, 228, 229, 231, 235, 237, 238, 245, 246, 248, 258, 259, 262, 289, 291
OFFSET
1,2
LINKS
MATHEMATICA
Table[Floor[Sum[1/FractionalPart[k*Sqrt[7]], {k, n}]], {n, 100}] (* Clark Kimberling, Aug 15 2012 *)
CROSSREFS
Cf. A024565.
Sequence in context: A364725 A303263 A056853 * A166457 A047506 A310656
KEYWORD
nonn
STATUS
approved