OFFSET
1,1
MATHEMATICA
Select[Prime[Range[400000]], Union[IntegerDigits[#]] == Union[ IntegerDigits[ #^3]]&] (* Harvey P. Dale, Aug 26 2013 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
Offset changed by Andrew Howroyd, Aug 11 2024
STATUS
approved