A159757 - OEIS

%I #8 Jun 04 2018 17:54:01

%S 98876532401,98876530421,98876524301,98876524013,98876520143,

%T 98876504123,98876502143,98876421053,98876405231,98876342501,

%U 98876320451,98876304251,98876254031,98876254013,98876251043

%N Pandigital primes with the fewest duplicate digits, starting with the largest and listed in descending order.

%H Robert Israel, <a href="/A159757/b159757.txt">Table of n, a(n) for n = 1..68476</a>

%p # This program produces all 68476 pandigital primes of length 11 starting with 98, although only the first 100 are displayed.

%p R:= map(op,[seq(combinat:-permute([$0..7,i]),i=[1,2,4,5,7,8])]):

%p R:= map(t -> 98*10^9+add(t[i]*10^(i-1),i=1..9), R):

%p A:= sort(select(isprime,R),`>`):

%p A[1..100]; # _Robert Israel_, Jun 04 2018

%Y Cf. A159474

%K nonn,base,fini

%O 1,1

%A _Lekraj Beedassy_, Apr 21 2009

%E Extended by _Ray Chandler_, Apr 22 2009