This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A382027 #18 Mar 20 2025 10:31:36
%S A382027 2,3,5,7,23,29,47,67,89,127,149,167,347,349,367,389,569,2347,2389,
%T A382027 2789,4567,4789,12347,12569,12589,34589,234589,1234789,1456789,
%U A382027 23456789
%N A382027 Primes whose decimal digits are in ascending order and also parity alternating.
%p A382027 b:= proc(n) `if`(isprime(n), n, [][]), seq(b(10*n+j), j=irem(n, 10)+1..9, 2) end:
%p A382027 {seq(b(n), n=1..9)}[];
%t A382027 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 *)
%Y A382027 Intersection of A030144 and A052015.
%Y A382027 Cf. A030141, A381158.
%K A382027 nonn,base,fini,full
%O A382027 1,1
%A A382027 _Alois P. Heinz_, Mar 12 2025