This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A070317 #19 Mar 26 2015 15:09:52 %S A070317 1,2,4,6,7,12,13,20,22,23,27,28,33,37,42,43,49,52,54,58,71,108,147, %T A070317 163,202,225,232,270,292,328,331,388,541,613,712,773,780,868,869,964, %U A070317 993,1024,1045,1065,1083 %N A070317 Record values of nextprime(n^2)-n^2, cf. A070316. %F A070317 a(n) = A053000(A070316(n)). - _M. F. Hasler_, May 05 2013 %e A070317 nextprime(63^2) - 63^2 = 3989 - 3969 = 20, giving the terms 63 in A070316 and 20 in the present sequence. %t A070317 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}] %Y A070317 Cf. A070316. %K A070317 nonn %O A070317 1,2 %A A070317 _Donald S. McDonald_, May 11 2002 %E A070317 Edited by _N. J. A. Sloane_ and _Robert G. Wilson v_, May 11 2002 %E A070317 More terms from _Ralf Stephan_, Oct 14 2002 %E A070317 More terms from _Charles R Greathouse IV_, Jun 16 2007, Aug 08 2007 %E A070317 More terms (using A070316) from _M. F. Hasler_, May 05 2013