OFFSET
1,1
COMMENTS
5437^3 = 160722988453, contains all the digits 0 through 9.
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..5000
MATHEMATICA
Select[Range[30000], PrimeQ[ # ] && Union[IntegerDigits[ #^3]] == {0, 1, 2, 3, 4, 5, 6, 7, 8, 9} &]
Select[Prime[Range[4000]], Min[DigitCount[#^3]]>0&] (* Harvey P. Dale, Aug 05 2014 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Tanya Khovanova, Dec 21 2006
STATUS
approved