|
%I #5 Jul 13 2023 19:58:03
%S 1,11,22,36,424,5120,6720,75040,840320,9362880,102,112,123,137,1425,
%T 15121,16721,175041,1840321,19362881,203,213,224,238,2426,25122,26722,
%U 275042,2840322,29362882,307,317,328,3312,3430,35126,36726,375046
%N Concatenate n and the sum of factorials of the digits of n.
%e a(16)=16721 because 1!+6! = 721.
%t Table[FromDigits[Join[IntegerDigits[n],IntegerDigits[Total[IntegerDigits[n]!]]]],{n,0,40}] (* _Harvey P. Dale_, Jul 13 2023 *)
%Y Cf. A061602.
%K base,easy,nonn
%O 0,2
%A _Jason Earls_, Jun 16 2005
|
