login
A161347
Numbers which are equal to the product of their digits plus the sum of the cubes of their own digits.
0
31, 370, 407, 952
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
Sequence in context: A125419 A138440 A307008 * A107941 A142684 A042868
KEYWORD
nonn,base,fini,full
AUTHOR
Claudio Meller, Jun 07 2009
STATUS
approved