A155054 - OEIS

A155054

Primes p such that (number of prime digits of prime(p)) < (number of nonprime digits of prime(p)).

5, 13, 29, 41, 43, 47, 53, 79, 83, 89, 97, 109, 113, 127, 149, 157, 163, 167, 173, 179, 181, 193, 197, 223, 229, 233, 239, 257, 263, 271, 283, 293, 313, 317, 379, 421, 431, 433, 443, 449, 487, 541, 563, 601, 607, 617, 631, 647, 661, 691, 719, 761, 773, 797

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

COMMENTS

Prime digits are 2, 3, 5, 7, nonprime digits are 0, 1, 4, 6, 8, 9.

LINKS

Table of n, a(n) for n=1..54.

MATHEMATICA

okQ[n_]:=Module[{idn=IntegerDigits[Prime[n]]}, Count[idn, _?PrimeQ]< Length[idn]/2]; Select[Prime[Range[200]], okQ] (* Harvey P. Dale, Apr 20 2011 *)

CROSSREFS

Cf. A000040, A141468.

Sequence in context: A216822 A217466 A078598 * A158756 A185086 A277701