A161347 - OEIS

%I #6 Aug 17 2014 13:29:39

%S 31,370,407,952

%N Numbers which are equal to the product of their digits plus the sum of the cubes of their own digits.

%C No terms exist beyond 952. For all k > 4999, the product of k's digits plus the sum of the cubes of k's digits is less than k. - _Jon E. Schoenfield_, Jun 14 2009

%e 31 = (3*1) + 3^3 + 1^3.

%t pscQ[n_]:=Module[{idn=IntegerDigits[n]},Times@@idn+Total[idn^3]==n]; Select[Range[1000],pscQ] (* _Harvey P. Dale_, Aug 17 2014 *)

%K nonn,base,fini,full

%O 1,1

%A _Claudio Meller_, Jun 07 2009