%I #7 Dec 11 2021 16:30:52
%S 2,3,4,5,6,7,9,10,12,13,15,16,17,21,22,23,24,27,29,30,31,33,34,35,36,
%T 38,39,40,41,42,44,46,48,49,50,53,56,59,60,64,66,67,74,75,77,78,80,82,
%U 84,91,96,97,98,103,105,109,110,111,112,119,125,129,133,135,139,146
%N Number of primes in an interval [k^2,(k+1)^2] setting a new record.
%F a(n) = A014085(A333846(n)).
%o (PARI) a349996(limit) = {my(nmax=0);for(k=1,limit,my(np=primepi((k+1)^2)-primepi(k^2));if(np>nmax,print1(np,", ");nmax=np))};
%o a349996(900)
%Y Cf. A014085, A333846, A349999.
%K nonn
%O 1,1
%A _Hugo Pfoertner_, Dec 11 2021
|