A024572 a(n) = [ n/{n*e} ], {x} := x - [ x ].

1, 4, 19, 4, 8, 19, 250, 10, 19, 54, 12, 19, 38, 250, 19, 32, 80, 19, 29, 54, 250, 27, 44, 100, 26, 38, 68, 250, 34, 54, 116, 32, 46, 80, 250, 41, 64, 128, 3002, 54, 91, 250, 48, 72, 139, 1122, 61, 100, 250, 54, 80, 148, 768, 68, 108, 250, 60, 87, 155, 619, 74, 116, 250, 65, 94, 162, 536

Offset: 1

Author

Clark Kimberling

Keywords

• nonn

Links

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

Crossrefs

Cf. A024573.

Programs

Mathematica

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