cp's OEIS Frontend

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.

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

This page as a plain text file.
%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