A382027 Primes whose decimal digits are in ascending order and also parity alternating.

2, 3, 5, 7, 23, 29, 47, 67, 89, 127, 149, 167, 347, 349, 367, 389, 569, 2347, 2389, 2789, 4567, 4789, 12347, 12569, 12589, 34589, 234589, 1234789, 1456789, 23456789

Offset: 1

Author

Alois P. Heinz, Mar 12 2025

Keywords

• nonn
• base
• fini
• full

Crossrefs

Intersection of A030144 and A052015.

Cf. A030141, A381158.

Programs

Maple

b:= proc(n) `if`(isprime(n), n, [][]), seq(b(10*n+j), j=irem(n, 10)+1..9, 2) end:
{seq(b(n), n=1..9)}[];

Mathematica

ad=Select[Prime[Range[2*10^6]],Union[IntegerDigits[#]]==IntegerDigits[#]&];fQ[n_] := Block[{m = Mod[ IntegerDigits@ n, 2]}, m == Split[m, UnsameQ][[1]]];Select[ad,fQ] (* James C. McMahon, Mar 20 2025 *)