|
%I #8 Dec 15 2017 17:36:38
%S 1,224,441,21660,26406
%N Numbers n such that the sum of n's digits times the sum of the factorials of n's digits is equal to n.
%C There are no further terms. - _Farideh Firoozbakht_, Apr 16 2008
%e (4 + 4 + 1)*(4! + 4! + 1!) = 441.
%t f[n_] := Plus @@ (Factorial /@ IntegerDigits[n])Plus @@ IntegerDigits[n]; Select[ Range[ 10^7], f[ # ] == # &] (* _Robert G. Wilson v_, May 29 2004 *)
%Y Cf. A005188.
%K base,nonn,fini,full
%O 1,2
%A _Jason Earls_, May 27 2004
|
