login
Records of A038804: (Smallest prime > 10^n) - (largest prime < 10^n).
1

%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