|
| |
|
|
A128105
|
|
a(n) = smallest multiple of n which is > exp(n).
|
|
1
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
FORMULA
| a(n) = n * ceiling(e^n/n) = n* (A107316(n) +1)
|
|
|
MATHEMATICA
| f[n_] := n*Ceiling[Exp[n]/n]; Array[f, 28] (*Chandler*)
f[n_] := n - First@Mod[Exp[n], n]; Array[f, 27] (* Robert G. Wilson v *)
|
|
|
CROSSREFS
| Cf. A128104, A107316.
Sequence in context: A072632 A001671 A090413 * A085560 A094374 A008909
Adjacent sequences: A128102 A128103 A128104 * A128106 A128107 A128108
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Leroy Quet Feb 14 2007
|
|
|
EXTENSIONS
| Extended by Robert G. Wilson v (rgwv(AT)rgwv.com) and Ray Chandler (rayjchandler(AT)sbcglobal.net), Feb 19 2007
|
| |
|
|
