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

2, 2, 28, 8, 5, 28, 12, 8, 28, 14, 235, 28, 16, 93, 28, 18, 66, 28, 19, 55, 28, 235, 49, 28, 126, 46, 28, 93, 43, 824, 76, 41, 235, 66, 39, 147, 60, 38, 112, 55, 493, 93, 52, 235, 81, 49, 161, 72, 1877, 126, 66, 400, 106, 62, 235, 93, 58, 172, 83, 824, 138, 76, 357, 117, 71, 235, 103

Offset

1,1

Links

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

Mathematica

a[n_] := Floor[n/FractionalPart[n/E]]; Table[a[n], {n, 70}] (* Clark Kimberling, Aug 17 2012 *)

Crossrefs

Cf. A024578.

Sequence in context: A094347 A236286 A288208 * A121222 A125067 A369755

Adjacent sequences: A024574 A024575 A024576 * A024578 A024579 A024580

Keyword

nonn

Author

Clark Kimberling

Status

approved