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] (* Ray Chandler, Feb 19 2007 *)
f[n_] := n - First@Mod[Exp[n], n]; Array[f, 27] (* Robert G. Wilson v *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Feb 14 2007
EXTENSIONS
Extended by Robert G. Wilson v and Ray Chandler, Feb 19 2007
STATUS
approved