A128104 a(n) = largest multiple of n which is < exp(n).

2, 6, 18, 52, 145, 402, 1092, 2976, 8100, 22020, 59873, 162744, 442403, 1202600, 3269010, 8886096, 24154943, 65659968, 178482295, 485165180, 1318815729, 3584912826, 9744803438, 26489122128, 72004899325, 195729609426

Offset

1,1

Links

Table of n, a(n) for n=1..26.

Formula

a(n) = n * floor(e^n/n) = n* A107316(n).

Maple

seq(n*floor(exp(n)/n), n=1..30); # Robert Israel, Nov 09 2014

Mathematica

f[n_] := n*Floor[Exp[n]/n]; Array[f, 28] (* Ray Chandler, Feb 19 2007 *)
f[n_] := -First@ Mod[ Exp[n], n]; Array[f, 27] (* Robert G. Wilson v, Feb 19 2007 *)

Crossrefs

Cf. A128105, A107316.

Sequence in context: A018249 A374186 A245285 * A318570 A027059 A078484

Adjacent sequences: A128101 A128102 A128103 * A128105 A128106 A128107

Keyword

nonn

Author

Leroy Quet, Feb 14 2007

Extensions

Extended by Robert G. Wilson v and Ray Chandler, Feb 19 2007

Status

approved