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

3, 5, 10, 16, 31, 40, 62, 73, 100, 147, 163, 220, 264, 284, 330, 410, 488, 520, 610, 676, 706, 812, 887, 1001, 1164, 1253, 1295, 1382, 1424, 1524, 1878, 1977, 2142, 2191, 2490, 2548, 2730, 2916, 3044, 3242, 3437, 3513, 3869, 3946, 4090, 4165, 4628

Offset

1,1

Links

Harry J. Smith, Table of n, a(n) for n=1,...,1000

Formula

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

a(n) = A000720(A062772(n)). - Michel Marcus, Jun 24 2014

Example

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

Mathematica

PrimePi[NextPrime[#]]&/@(Prime[Range[50]]^2) (* Harvey P. Dale, Apr 12 2023 *)

Prog

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

Crossrefs

Cf. A054270, A054271, A000879.

Sequence in context: A320788 A000990 A129361 * A319130 A329467 A293818

Adjacent sequences: A062770 A062771 A062772 * A062774 A062775 A062776

Keyword

nonn

Author

Labos Elemer, Jul 18 2001

Extensions

OFFSET changed from 0 to 1 by Harry J. Smith, Aug 10 2009

Status

approved