A157141 Prime numbers for which the number of odd nonprime digits equals the number of even nonzero digits and both are >0.

29, 41, 61, 89, 127, 163, 167, 239, 251, 271, 293, 349, 389, 401, 409, 431, 439, 479, 521, 541, 569, 601, 613, 617, 631, 659, 761, 769, 809, 839, 859, 947, 967, 983, 1063, 1087, 1229, 1237, 1249, 1277, 1289, 1327, 1367, 1429, 1433, 1453, 1481, 1489, 1523, 1543

Offset

1,1

Comments

Odd nonprime digits are 1 or 9 and even digits are 2, 4, 6 or 8.

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Mathematica

pdQ[p_]:=Count[IntegerDigits[p], _?(MemberQ[{1, 9}, #]&)]==Count[IntegerDigits[p], _?(MemberQ[ {2, 4, 6, 8}, #]&)]>0; Select[Prime[Range[250]], pdQ] (* Harvey P. Dale, Dec 22 2023 *)

Crossrefs

Cf. A000040.

Sequence in context: A343479 A080899 A216815 * A107218 A346145 A058900

Adjacent sequences: A157138 A157139 A157140 * A157142 A157143 A157144

Keyword

nonn,base,less

Author

Juri-Stepan Gerasimov, Feb 24 2009

Extensions

Definition corrected, 1277 and 1289 inserted by R. J. Mathar, May 15 2010

Status

approved