|
%I #23 Aug 22 2019 18:09:16
%S 1039,1049,1063,1069,1087,1093,1097,1237,1249,1259,1279,1283,1289,
%T 1297,1307,1327,1367,1409,1423,1427,1429,1439,1453,1459,1483,1487,
%U 1489,1493,1523,1543,1549,1567,1579,1583,1597,1607,1609,1627,1637,1657,1693,1697
%N Four-digit distinct-digit primes.
%C There are exactly 510 four-digit primes with all distinct digits. The end of the sequence is: 8761, 8923, 8941, 8951, 8963, 8971, 9013, 9041, 9043, 9067, 9103, 9127, 9137, 9157, 9173, 9187, 9203, 9241, 9257, 9281, 9283, 9341, 9371, 9403, 9413, 9421, 9431, 9437, 9461, 9463, 9467, 9473, 9521, 9547, 9587, 9601, 9613, 9623, 9631, 9643, 9721, 9743, 9781, 9803, 9817, 9851, 9857, 9871.
%H Nathaniel Johnston, <a href="/A074673/b074673.txt">Table of n, a(n) for n = 1..510</a> (full sequence)
%e a(1) = 1039 and a(510) = 9871 because these are the first and the last four-digit primes with all distinct digits.
%t Select[Range[1001, 9999, 2], Length[Union[IntegerDigits[#]]] == 4 && PrimeQ[#] &] (* Corrected by _Harvey P. Dale_, Jan 17 2011 *)
%t Select[Prime[Range[168,1229]],Max[DigitCount[#]]==1&] (* _Harvey P. Dale_, Aug 22 2019 *)
%o (PARI) is(n)=isprime(n) && #digits(n)==4 && #Set(digits(n))==4 \\ _Charles R Greathouse IV_, Feb 11 2017
%Y The first differences are in A074674. 5-digit distinct-digit primes are in A074671, see also A074672. 6-digit distinct-digit primes are in A074669, see also A074670. 7-digit distinct-digit primes are in A074667, see also A074668. 8-digit distinct-digit primes are in A074665, see also A074666.
%K fini,full,nonn,base
%O 1,1
%A _Zak Seidov_, Aug 30 2002
|
