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,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

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

Adjacent sequences: A124626 A124627 A124628 * A124630 A124631 A124632

Keyword

base,nonn

Author

Tanya Khovanova, Dec 21 2006

Status

approved