OFFSET
1,1
EXAMPLE
487^3 = 115501303 -- the sum of the digits of 487 and 115501303 is the same and is equal to 19.
MATHEMATICA
Select[Range[10000000], PrimeQ[ # ] && Plus @@ IntegerDigits[ # ] == Plus @@ IntegerDigits[ #^3] &]
Select[Prime[Range[151*10^5]], Total[IntegerDigits[#]]==Total[ IntegerDigits[ #^3]]&] (* Harvey P. Dale, Feb 17 2018 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Tanya Khovanova, Dec 23 2006
EXTENSIONS
More terms from Olaf Voß, Feb 11 2008
STATUS
approved