A155552 Primes p such that (number of prime digits of p) > (number of prime digits of prime(p)).

5, 13, 23, 29, 43, 53, 79, 127, 157, 167, 173, 223, 227, 229, 233, 239, 257, 263, 271, 277, 283, 293, 313, 317, 337, 353, 373, 379, 433, 523, 557, 563, 577, 647, 757, 773, 797, 839, 853, 859, 863, 887, 977, 1103, 1117, 1123, 1153, 1171, 1187, 1193, 1217

Offset: 1

Author

Juri-Stepan Gerasimov, Jan 24 2009

Keywords

• nonn
• base
• less

Links

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

Crossrefs

Cf. A000040, A109066, A155555.

Programs

Mathematica

Select[Prime[Range[200]],Count[IntegerDigits[#],?PrimeQ]> Count[ IntegerDigits[ Prime[#]],?PrimeQ]&] (* Harvey P. Dale, May 08 2012 *)

Extensions

Corrected (337 inserted, 761 removed etc.) by R. J. Mathar, May 15 2010