This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A155552 #20 Feb 19 2021 02:57:41 %S A155552 5,13,23,29,43,53,79,127,157,167,173,223,227,229,233,239,257,263,271, %T A155552 277,283,293,313,317,337,353,373,379,433,523,557,563,577,647,757,773, %U A155552 797,839,853,859,863,887,977,1103,1117,1123,1153,1171,1187,1193,1217 %N A155552 Primes p such that (number of prime digits of p) > (number of prime digits of prime(p)). %H A155552 Harvey P. Dale, <a href="/A155552/b155552.txt">Table of n, a(n) for n = 1..1000</a> %t A155552 Select[Prime[Range[200]],Count[IntegerDigits[#],_?PrimeQ]> Count[ IntegerDigits[ Prime[#]],_?PrimeQ]&] (* _Harvey P. Dale_, May 08 2012 *) %Y A155552 Cf. A000040, A109066, A155555. %K A155552 nonn,base,less %O A155552 1,1 %A A155552 _Juri-Stepan Gerasimov_, Jan 24 2009 %E A155552 Corrected (337 inserted, 761 removed etc.) by _R. J. Mathar_, May 15 2010