A058043 a(n) = nextprime(n^2) - prevprime(n^2).

2, 4, 4, 6, 6, 6, 6, 4, 4, 14, 10, 6, 4, 4, 6, 10, 14, 8, 4, 4, 8, 18, 6, 12, 4, 6, 14, 14, 20, 14, 10, 4, 10, 6, 6, 6, 8, 12, 4, 24, 18, 14, 16, 10, 16, 6, 12, 12, 26, 16, 8, 16, 8, 14, 16, 22, 10, 22, 14, 8, 14, 22, 6, 10, 8, 10, 16, 24, 14, 12, 10, 10, 6, 16, 30, 12, 10, 18, 24, 10

Offset

2,1

Links

Alois P. Heinz, Table of n, a(n) for n = 2..10000

Example

6^2=36 is immediately preceded and followed by 31 and 37, of which 6 is the difference.

Maple

[seq(nextprime(i^2)-prevprime(i^2), i=2..1000)];

Mathematica

Table[n2=n^2; (NextPrime[n2]-NextPrime[n2, -1]), {n, 2, 100}] (* Vladimir Joseph Stephan Orlovsky, Mar 09 2011 *)

Prog

(PARI) A058043(n) = nextprime(n^2)-prime(primepi(n^2)) \\ Michael B. Porter, Feb 09 2010

Crossrefs

Sequence in context: A058249 A340226 A348769 * A251546 A282894 A162550

Adjacent sequences: A058040 A058041 A058042 * A058044 A058045 A058046

Keyword

nonn

Author

Labos Elemer, Nov 17 2000

Status

approved