login
A124629
Primes p such that their cubes are pandigital.
1
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,1
COMMENTS
5437^3 = 160722988453, contains all the digits 0 through 9.
LINKS
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
Cf. Prime subsequence of A119735 - Numbers n such that every digit occurs at least once in n^3.
Sequence in context: A346177 A363782 A116894 * A222696 A125016 A234157
KEYWORD
base,nonn
AUTHOR
Tanya Khovanova, Dec 21 2006
STATUS
approved