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

1, 3, 10, 11, 12, 16, 51, 53, 55, 60, 62, 63, 66, 84, 85, 87, 92, 93, 95, 97, 109, 111, 112, 117, 118, 119, 122, 131, 132, 134, 137, 138, 140, 142, 149, 151, 152, 156, 233, 234, 236, 242, 243, 245, 248, 273, 274, 276, 281, 282, 284, 287, 301, 302, 304, 309, 310, 311, 314, 324

Offset

1,2

Links

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

Mathematica

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

Crossrefs

Cf. A024574.

Sequence in context: A129489 A104702 A106596 * A114134 A167519 A372120

Adjacent sequences: A024572 A024573 A024574 * A024576 A024577 A024578

Keyword

nonn

Author

Clark Kimberling

Status

approved