A024579 a(n) = Sum_{k=1..n} [ 1/{k/e} ], where {x} := x - [ x ].

2, 3, 12, 14, 15, 19, 20, 21, 24, 25, 46, 48, 49, 55, 56, 57, 60, 61, 62, 64, 65, 75, 77, 78, 83, 84, 85, 88, 89, 116, 118, 119, 126, 127, 128, 132, 133, 134, 136, 137, 149, 151, 152, 157, 158, 159, 162, 163, 201, 203, 204, 211, 213, 214, 218, 219, 220, 222, 223, 236, 238, 239

Offset

1,1

Links

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

Mathematica

Table[Sum[Floor[1/FractionalPart[k/E]], {k, n}], {n, 100}] (* Clark Kimberling, Aug 17 2012 *)

Prog

(PARI) a(n) = sum(k=1, n, floor(1/frac(k/exp(1)))); \\ Michel Marcus, Jul 17 2019

Crossrefs

Cf. A024580. Partial sums of A024578.

Sequence in context: A102034 A102150 A039588 * A291565 A299545 A068603

Adjacent sequences: A024576 A024577 A024578 * A024580 A024581 A024582

Keyword

nonn

Author

Clark Kimberling

Status

approved