|
%I #23 Mar 15 2020 13:48:48
%S 4,12,34,70,124,218,264,540,604,670,754,1182,1310,1418,2606,2702,3516,
%T 4248,7358,7680,7692,9060,9962,17568,18052,23784,28218,29814,31024,
%U 34788,41438,48984,59568,68986,75944,82700,83232,91840,113108,132652,153094,167608
%N Records of A038804: (Smallest prime > 10^n) - (largest prime < 10^n).
%e Smallest 2-digit prime is 11, largest 1-digit prime is 7, so 11 - 7 = 4 is a term; since there is no 0-digit prime, 4 is a(1).
%t Block[{s = ToExpression /@ Map[StringSplit, Drop[Import["https://oeis.org/A038804/b038804.txt", "Data"], 4]][[All, -1]]}, Union@ FoldList[Max, s]] (* _Michael De Vlieger_, Mar 14 2020, using b-file at A038804 *)
%o (PARI) d=0;for(k=1,500,my(t=10^k,dd=nextprime(t)-precprime(t));if(dd>d,print1(dd,", ");d=dd)) \\ _Hugo Pfoertner_, Mar 01 2020
%Y Cf. A038804.
%K nonn
%O 1,1
%A _Robert G. Wilson v_, Jan 28 2020
%E a(37)-a(42) from _Giovanni Resta_, Mar 15 2020
|
