A154765 Primes with the same number of even decimal digits and prime digits.

2, 11, 19, 29, 43, 47, 67, 83, 103, 107, 163, 167, 191, 199, 211, 229, 263, 283, 349, 389, 431, 439, 479, 509, 541, 569, 613, 617, 631, 659, 701, 709, 761, 769, 823, 827, 839, 859, 907, 911, 919, 929, 947, 967, 983, 991, 1013, 1031, 1039, 1051, 1093, 1097, 1103

Offset

1,1

Links

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

Mathematica

edpQ[n_]:=Module[{idn=IntegerDigits[n]}, Count[idn, _?EvenQ]== Count[ idn, _?PrimeQ]]; Select[Prime[Range[200]], edpQ] (* Harvey P. Dale, Mar 29 2013 *)

Crossrefs

Sequence in context: A064739 A112860 A152312 * A163997 A067931 A186267

Adjacent sequences: A154762 A154763 A154764 * A154766 A154767 A154768

Keyword

nonn,base,less

Author

Juri-Stepan Gerasimov, Jan 15 2009

Extensions

19 added, 101 removed, 103 and 107 added, 109 removed, 509 added etc. by R. J. Mathar, Oct 22 2009

Status

approved