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

Links

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

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

Crossrefs

Cf. A159474

Sequence in context: A162031 A204348 A159474 * A017183 A017279 A017519

Adjacent sequences: A159754 A159755 A159756 * A159758 A159759 A159760

Keyword

nonn,base,fini

Author

Lekraj Beedassy, Apr 21 2009

Extensions

Extended by Ray Chandler, Apr 22 2009

Status

approved