A109016 Concatenate n and the sum of factorials of the digits of n.
1, 11, 22, 36, 424, 5120, 6720, 75040, 840320, 9362880, 102, 112, 123, 137, 1425, 15121, 16721, 175041, 1840321, 19362881, 203, 213, 224, 238, 2426, 25122, 26722, 275042, 2840322, 29362882, 307, 317, 328, 3312, 3430, 35126, 36726, 375046
Offset: 0
Examples
a(16)=16721 because 1!+6! = 721.
Crossrefs
Cf. A061602.
Programs
-
Mathematica
Table[FromDigits[Join[IntegerDigits[n],IntegerDigits[Total[IntegerDigits[n]!]]]],{n,0,40}] (* Harvey P. Dale, Jul 13 2023 *)