A255964 Five-digit distinct-digit zeroless primes.

12347, 12379, 12437, 12457, 12473, 12479, 12487, 12497, 12539, 12547, 12569, 12583, 12589, 12637, 12647, 12653, 12659, 12689, 12697, 12739, 12743, 12763, 12853, 12893, 12953, 12967, 12973, 12983, 13249, 13259, 13267, 13297, 13457

Offset: 1

Author

Zak Seidov, Mar 12 2015

Keywords

• nonn
• base
• fini
• full

Comments

The last term is a(1610)=98731.

Intersection of A038618 and A074671. - Michel Marcus, Mar 16 2015

Links

• Zak Seidov, Table of n, a(n) for n = 1..1610

Crossrefs

Cf. A038618 (zeroless primes), A074671 (5-digit distinct-digit primes).

Programs

Mathematica

f[n_] := Block[{d = DigitCount@ n}, And[Plus @@ d == 5, Last@ d == 0, Max@ d == 1, PrimeQ@ n]]; Select[Range[10000, 99999], f] (* or *) Select[FromDigits /@ Permutations[Range[1, 9], {5}], PrimeQ] (* Michael De Vlieger, Mar 12 2015 *)