|
Search: id:A128105
|
|
|
| A128105 |
|
a(n) = smallest multiple of n which is > exp(n). |
|
+0
2
|
|
| 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; listen)
|
|
|
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 this_sequence A085560 A094374 A008909
Adjacent sequences: A128102 A128103 A128104 this_sequence A128106 A128107 A128108
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Leroy Quet (qq-quet(AT)mindspring.com), Feb 14 2007
|
|
EXTENSIONS
|
Extended by Robert G. Wilson v (rgwv(AT)rgwv.com) and Ray Chandler (rayjchandler(AT)sbcglobal.net), Feb 19 2007
|
|
|
Search completed in 0.002 seconds
|
