login
Numbers n such that the sum of n's digits times the sum of the factorials of n's digits is equal to n.
0

%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