A062773 - OEIS

%I #20 Apr 12 2023 12:33:50

%S 3,5,10,16,31,40,62,73,100,147,163,220,264,284,330,410,488,520,610,

%T 676,706,812,887,1001,1164,1253,1295,1382,1424,1524,1878,1977,2142,

%U 2191,2490,2548,2730,2916,3044,3242,3437,3513,3869,3946,4090,4165,4628

%N Index of the smallest prime which follows square of n-th prime.

%H Harry J. Smith, <a href="/A062773/b062773.txt">Table of n, a(n) for n=1,...,1000</a>

%F a(n) = PrimePi( nextprime( prime(n)^2 ) ).

%F a(n) = A000720(A062772(n)). - _Michel Marcus_, Jun 24 2014

%e 100th prime, 541 immediately follows 529, square of 9th prime, a(9)=100.

%t PrimePi[NextPrime[#]]&/@(Prime[Range[50]]^2) (* _Harvey P. Dale_, Apr 12 2023 *)

%o (PARI) { default(primelimit, 64000000); for (n=1, 1000, write("b062773.txt", n, " ", primepi(nextprime(prime(n)^2))) ) } \\ _Harry J. Smith_, Aug 10 2009

%Y Cf. A054270, A054271, A000879.

%K nonn

%O 1,1

%A _Labos Elemer_, Jul 18 2001

%E OFFSET changed from 0 to 1 by _Harry J. Smith_, Aug 10 2009