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 A119292 #23 May 03 2019 08:42:07
%S A119292 5,55,574,7043,102370,1222003,13896979,152844768,1611113572,
%T A119292 16626301609,171878734261,1781706224877
%N A119292 Total number of 1's digits in the first 10^n primes.
%e A119292 At a(1)=5 there are 5 1's digits in the first 10^1 primes.
%p A119292 A119292 := proc(n) option remember: local k,s,lim: if(n=0)then return 0:fi: lim:=10^n: s:=procname(n-1): for k from 10^(n-1)+1 to lim do s:=s+nops([SearchAll("1",convert(ithprime(k),string))]): od: return s: end: seq(A119292(n),n=1..4); # _Nathaniel Johnston_, May 09 2011
%t A119292 Table[Count[IntegerDigits[Prime[Range[10^n]]], 1, 2], {n, 6}] (* _Robert Price_, May 02 2019 *)
%o A119292 (PARI) my(x=10, i=0, j=0); forprime(p=1, , j++; my(d=digits(p)); i+=#setintersect(vecsort(d), vector(#d, t, 1)); if(j==x, print1(i, ", "); x=10*x)) \\ _Felix Fröhlich_, May 02 2019
%Y A119292 Cf. A119290, A119291, A119293-A119300.
%K A119292 more,nonn,base
%O A119292 1,1
%A A119292 _Enoch Haga_, May 13 2006
%E A119292 Offset changed from 0 to 1 by _Nathaniel Johnston_, May 09 2011
%E A119292 a(8)-a(11) from _Robert Price_, Nov 05 2013
%E A119292 a(12) from _Marek Hubal_, Mar 04 2019