OFFSET
1,1
MATHEMATICA
Select[Total[IntegerDigits[#]]&/@(Range[1000]^3), PrimeQ] (* Harvey P. Dale, Jul 16 2017 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Zak Seidov, Jun 28 2005
STATUS
approved