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,2

Links

Table of n, a(n) for n=0..37.

Example

a(16)=16721 because 1!+6! = 721.

Mathematica

Table[FromDigits[Join[IntegerDigits[n], IntegerDigits[Total[IntegerDigits[n]!]]]], {n, 0, 40}] (* Harvey P. Dale, Jul 13 2023 *)

Crossrefs

Cf. A061602.

Sequence in context: A283927 A239018 A101145 * A084025 A061157 A144378

Adjacent sequences: A109013 A109014 A109015 * A109017 A109018 A109019

Keyword

base,easy,nonn

Author

Jason Earls, Jun 16 2005

Status

approved