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

98876532401, 98876530421, 98876524301, 98876524013, 98876520143, 98876504123, 98876502143, 98876421053, 98876405231, 98876342501, 98876320451, 98876304251, 98876254031, 98876254013, 98876251043

Offset: 1

Author

Lekraj Beedassy, Apr 21 2009

Keywords

• nonn
• base
• fini

Links

• Robert Israel, Table of n, a(n) for n = 1..68476

Crossrefs

Cf. A159474

Programs

Maple

# This program produces all 68476 pandigital primes of length 11 starting with 98, although only the first 100 are displayed.
R:= map(op,[seq(combinat:-permute([$0..7,i]),i=[1,2,4,5,7,8])]):
R:= map(t -> 98*10^9+add(t[i]*10^(i-1),i=1..9), R):
A:= sort(select(isprime,R),`>`):
A[1..100]; # Robert Israel, Jun 04 2018

Extensions

Extended by Ray Chandler, Apr 22 2009