login
A024565
a(n) = Sum_{k=1..n} [ 1/{k*sqrt(7)} ] where {x} := x - [ x ].
2
1, 4, 5, 6, 10, 11, 12, 18, 19, 21, 30, 31, 33, 57, 58, 61, 62, 63, 66, 67, 68, 72, 73, 75, 81, 82, 84, 96, 97, 99, 153, 154, 157, 158, 159, 163, 164, 165, 170, 171, 173, 181, 182, 184, 201, 202, 204, 205, 206, 209, 210, 211, 215, 216, 217, 223, 224, 226
OFFSET
1,2
LINKS
MATHEMATICA
Table[Sum[Floor[1/FractionalPart[k*Sqrt[7]]], {k, 1, n}], {n, 100}] (* Clark Kimberling, Aug 15 2012 *)
PROG
(Magma) a:=Sqrt(7); [&+[Floor(1/(k*a-Floor(k*a))):k in [1..n]]:n in [1..60]]; // Marius A. Burtea, Jul 16 2019
CROSSREFS
Cf. A024566. Partial sums of A024564.
Sequence in context: A026312 A070751 A047258 * A327223 A143833 A186808
KEYWORD
nonn
EXTENSIONS
Corrected by Clark Kimberling, Aug 15 2012
STATUS
approved