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 A057573 #9 Jun 17 2022 18:11:08
%S A057573 1,7,25,122,934,7268,61756,537324,4756645
%N A057573 Number of primes in A051351 which have index <= 10^n.
%H A057573 <a href="/index/Pri#primepop">Index entries for sequences related to numbers of primes in various ranges</a>
%t A057573 NextPrime[ n_Integer ] := Module[ {k}, k = n + 1; While[ ! PrimeQ[ k ], k++ ]; k ]; c = d = p = q = 0; Do[ While[ d++; d <= 10^n, q = NextPrime[ q ]; p = p + Apply[ Plus, RealDigits[ q ] [[ 1 ] ]]; If[ PrimeQ[ p ], c++ ]]; d--; Print[ c ], {n, 0, 10} ]
%Y A057573 Cf. A051351 and A058049.
%K A057573 nonn
%O A057573 0,2
%A A057573 _Robert G. Wilson v_, Nov 27 2000
%E A057573 Offset corrected by _Sean A. Irvine_, Jun 17 2022