

A161347


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


0




OFFSET

1,1


COMMENTS

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


LINKS



EXAMPLE

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


MATHEMATICA

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


CROSSREFS



KEYWORD

nonn,base,fini,full


AUTHOR



STATUS

approved



