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
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
Claudio Meller, Jun 07 2009
STATUS
approved