A124629 Primes p such that their cubes are pandigital.

5437, 6221, 7219, 8443, 10903, 11353, 15937, 17123, 18229, 19429, 20353, 20903, 20929, 21803, 21841, 21961, 22123, 22283, 22993, 23053, 23369, 23663, 24733, 25183, 25219, 25463, 26317, 26387, 26449, 27127, 27481, 28181, 28631, 28711

Offset: 1

Author

Tanya Khovanova, Dec 21 2006

Keywords

• base
• nonn

Comments

5437^3 = 160722988453, contains all the digits 0 through 9.

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..5000

Crossrefs

Cf. Prime subsequence of A119735 - Numbers n such that every digit occurs at least once in n^3.

Programs

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 *)