OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
FORMULA
a(n) = n + A061602(n). - Michel Marcus, Apr 21 2014
EXAMPLE
a(8) = 40328 because we have 8 + 8! = 40328.
MATHEMATICA
f[n_]:= n + Plus@@Factorial/@IntegerDigits[n]; Table[f[n], {n, 50}]
PROG
(PARI) a(n) = my(d = digits(n)); n + sum(i=1, #d, d[i]!); \\ Michel Marcus, Apr 21 2014
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Vincenzo Librandi, Apr 21 2014
STATUS
approved