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
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 *)