A070317 Record values of nextprime(n^2)-n^2, cf. A070316.

1, 2, 4, 6, 7, 12, 13, 20, 22, 23, 27, 28, 33, 37, 42, 43, 49, 52, 54, 58, 71, 108, 147, 163, 202, 225, 232, 270, 292, 328, 331, 388, 541, 613, 712, 773, 780, 868, 869, 964, 993, 1024, 1045, 1065, 1083

Offset

1,2

Links

Table of n, a(n) for n=1..45.

Formula

a(n) = A053000(A070316(n)). - M. F. Hasler, May 05 2013

Example

nextprime(63^2) - 63^2 = 3989 - 3969 = 20, giving the terms 63 in A070316 and 20 in the present sequence.

Mathematica

NextPrim[n_] := Block[{k = n + 1}, While[ !PrimeQ[k], k++ ]; k]; d = 0; Do[m = n; a = NextPrim[n^2] - n^2; If[a > d, d = a; Print[n]], {n, 1, 10^8}]

Crossrefs

Cf. A070316.

Sequence in context: A263084 A029501 A051730 * A138398 A086781 A261220

Adjacent sequences: A070314 A070315 A070316 * A070318 A070319 A070320

Keyword

nonn

Author

Donald S. McDonald, May 11 2002

Extensions

Edited by N. J. A. Sloane and Robert G. Wilson v, May 11 2002

More terms from Ralf Stephan, Oct 14 2002

More terms from Charles R Greathouse IV, Jun 16 2007, Aug 08 2007

More terms (using A070316) from M. F. Hasler, May 05 2013

Status

approved