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

1, 3, 9, 10, 11, 14, 49, 50, 52, 57, 58, 59, 61, 78, 79, 81, 85, 86, 87, 89, 100, 101, 102, 106, 107, 108, 110, 118, 119, 120, 123, 124, 125, 127, 134, 135, 136, 139, 215, 216, 218, 223, 224, 225, 228, 252, 253, 255, 260, 261, 262, 264, 278, 279, 280, 284, 285, 286, 288, 298

Offset: 1

Author

Clark Kimberling

Keywords

• nonn

Links

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

Crossrefs

Cf. A024575. Partial sums of A024573.

Programs

Mathematica

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