A128105 a(n) = smallest multiple of n which is > exp(n).

3, 8, 21, 56, 150, 408, 1099, 2984, 8109, 22030, 59884, 162756, 442416, 1202614, 3269025, 8886112, 24154960, 65659986, 178482314, 485165200, 1318815750, 3584912848, 9744803461, 26489122152, 72004899350, 195729609452

Offset

1,1

Links

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

Formula

a(n) = n * ceiling(e^n/n) = n* (A107316(n) +1)

Mathematica

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

Crossrefs

Cf. A128104, A107316.

Sequence in context: A278616 A278615 A090413 * A085560 A318900 A243633

Adjacent sequences: A128102 A128103 A128104 * A128106 A128107 A128108

Keyword

nonn

Author

Leroy Quet, Feb 14 2007

Extensions

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

Status

approved