login
Primes p such that their cubes are pandigital.
1

%I #7 Aug 05 2014 12:41:06

%S 5437,6221,7219,8443,10903,11353,15937,17123,18229,19429,20353,20903,

%T 20929,21803,21841,21961,22123,22283,22993,23053,23369,23663,24733,

%U 25183,25219,25463,26317,26387,26449,27127,27481,28181,28631,28711

%N Primes p such that their cubes are pandigital.

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

%H Harvey P. Dale, <a href="/A124629/b124629.txt">Table of n, a(n) for n = 1..5000</a>

%t Select[Range[30000], PrimeQ[ # ] && Union[IntegerDigits[ #^3]] == {0, 1, 2, 3, 4, 5, 6, 7, 8, 9} &]

%t Select[Prime[Range[4000]],Min[DigitCount[#^3]]>0&] (* _Harvey P. Dale_, Aug 05 2014 *)

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

%K base,nonn

%O 1,1

%A _Tanya Khovanova_, Dec 21 2006