OFFSET
1,1
COMMENTS
15 (digital sum = 1+5 = 6) is in the list because 15^3=3375 (digital sum = 3+3+7+5 = 18) and 18 = 3*6.
MATHEMATICA
Select[Range[700], Total[IntegerDigits[#^3]]==3Total[IntegerDigits[#]]&] (* Harvey P. Dale, Dec 08 2010 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Claudio Meller, Jun 10 2009
STATUS
approved