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,1

Links

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

Mathematica

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

Crossrefs

Cf. A000040, A109066, A155555.

Sequence in context: A006353 A155142 A377179 * A219546 A143988 A129806

Adjacent sequences: A155549 A155550 A155551 * A155553 A155554 A155555

Keyword

nonn,base,less

Author

Juri-Stepan Gerasimov, Jan 24 2009

Extensions

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

Status

approved