OFFSET
1,2
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..45, Dec 29 2007
EXAMPLE
nextprime(63^2) - 63^2 = 3989 - 3969 = 20, giving the terms 63 in the present sequence and 20 in A070317.
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}]
PROG
(PARI) A070316(n, show_all=0)={my(k=0, r=0); for(n=1, n, until(nextprime(k++^2)-k^2>r , ); r=nextprime(k^2)-k^2; show_all&print1(k", ")); k} \\ M. F. Hasler, Mar 23 2013
CROSSREFS
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
Further terms from Charles R Greathouse IV, Jun 16 2007
Typo in a(38) corrected by M. F. Hasler, Mar 23 2013
STATUS
approved