A241404 Sum of n and the sum of the factorials of its digits.

2, 4, 9, 28, 125, 726, 5047, 40328, 362889, 12, 13, 15, 20, 39, 136, 737, 5058, 40339, 362900, 23, 24, 26, 31, 50, 147, 748, 5069, 40350, 362911, 37, 38, 40, 45, 64, 161, 762, 5083, 40364, 362925, 65, 66, 68, 73, 92, 189, 790, 5111, 40392, 362953, 171, 172, 174

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

Cf. A061602, A108911.

Sequence in context: A296264 A343166 A219665 * A005095 A300491 A229686

Adjacent sequences: A241401 A241402 A241403 * A241405 A241406 A241407

Keyword

nonn,base,easy

Author

Vincenzo Librandi, Apr 21 2014

Status

approved