login
A024574
a(n) = Sum_{k=1..n} [ 1/{k*e} ] where {x} := x - [ x ].
2
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,2
LINKS
MATHEMATICA
Table[Sum[Floor[1/FractionalPart[k*E]], {k, n}], {n, 100}] (* Clark Kimberling, Aug 15 2012 *)
CROSSREFS
Cf. A024575. Partial sums of A024573.
Sequence in context: A043048 A308421 A309349 * A119203 A115403 A282409
KEYWORD
nonn
STATUS
approved