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

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

Adjacent sequences: A155051 A155052 A155053 * A155055 A155056 A155057

Keyword

nonn,base,less

Author

Juri-Stepan Gerasimov, Jan 19 2009

Extensions

Corrected (277, 419 removed) by R. J. Mathar, May 05 2010

Status

approved