OFFSET
1,1
COMMENTS
If a prime number's even digits are to outnumber its odd digits, it may not have two digits (as its last digit must be odd.) Neither may it begin with an odd digit if it has three or four digits. The smallest member of this sequence to begin with an odd digit is 10007.
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
64969 is a member of this sequence as it is a prime with 3 even and only two odd digits. The primes on either side of it - 64951 and 64997 - are both non-members.
MATHEMATICA
Select[Prime[Range[1000]], Sum[DigitCount[ # ][[2i - 1]], {i, 1, 5}] < Sum[DigitCount[ # ][[2i]], {i, 1, 5}] &] (* Stefan Steinerberger, Apr 18 2006 *)
metoQ[n_]:=Module[{idn=IntegerDigits[n]}, Count[idn, _?EvenQ]>Count[idn, _?OddQ]]; Select[Prime[Range[350]], metoQ] (* Harvey P. Dale, Oct 10 2018 *)
PROG
(PARI) select( {is_A117076(n)=isprime(n)&&vecsum(n=digits(n)%2)*2<#n}, primes(500)) \\ M. F. Hasler, Jul 03 2022
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Andy Edwards, Apr 18 2006
EXTENSIONS
More terms from Stefan Steinerberger, Apr 18 2006
STATUS
approved