A024566 a(n) = [ sum of 1/{k*sqrt(7)} ] for k = 1,2,...,n, where {x} := x - [ x ].

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

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

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

Adjacent sequences: A024563 A024564 A024565 * A024567 A024568 A024569

Keyword

nonn

Author

Clark Kimberling

Status

approved