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 A155555 #20 Feb 19 2021 02:58:00 %S A155555 11,19,31,41,59,61,67,71,101,103,107,109,131,137,139,149,151,181,191, %T A155555 199,211,241,269,281,307,311,331,349,367,389,401,409,419,439,449,457, %U A155555 461,463,467,479,491,499,503,509,521,569,587,599,601,613,619,641,643 %N A155555 Primes p such that (number of prime digits of p) < (number of prime digits of prime(p)). %C A155555 Prime digits are 2, 3, 5, 7. %H A155555 John Cerkan, <a href="/A155555/b155555.txt">Table of n, a(n) for n = 1..10000</a> %o A155555 (PARI) dp(n)=d=digits(n);c=0;for(i=1,#d,if(isprime(d[i]),c+=1));c %o A155555 forprime(p=1,500,if(dp(p)<dp(prime(p)),print1(p,", "))) \\ _Derek Orr_, Feb 28 2017 %Y A155555 Cf. A000040, A109066, A155552. %K A155555 nonn,base,less %O A155555 1,1 %A A155555 _Juri-Stepan Gerasimov_, Jan 24 2009 %E A155555 Corrected (87 removed) by _R. J. Mathar_, May 15 2010