%I #7 Oct 16 2023 18:28:06
%S 2,29,47,67,89,109,127,149,167,181,229,241,269,283,307,349,367,389,
%T 409,421,449,467,487,547,569,587,607,647,661,683,709,727,743,769,787,
%U 809,829,863,887,907,929,947,967,983,1009,1021,1049,1087,1109,1129,1163,1187,1201,1229,1249,1289,1307,1367
%N Primes that have more even digits than the next prime.
%H Robert Israel, <a href="/A366692/b366692.txt">Table of n, a(n) for n = 1..10000</a>
%e a(3) = 47 is a term because 47 is a prime with 1 even digit and the next prime(53) has 0 even digits.
%p f:= n -> nops(select(type,convert(n,base,10),even)):
%p P:= select(isprime,[2,seq(i,i=3..10000,2)]):
%p F:= map(f,P):
%p P[select(t -> F[t] > F[t+1], [$1..nops(F)-1])];
%t p = 2; s = {}; Do[If[Count[Mod[IntegerDigits[p], 2], 0]
%t > Count[Mod[IntegerDigits[q = NextPrime[p]], 2], 0], AppendTo[s, p]]; p = q,
%t {300}]; s
%K nonn,base
%O 1,1
%A _Zak Seidov_ and _Robert Israel_, Oct 16 2023