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

Author

Labos Elemer, Nov 17 2000

Keywords

• nonn

Examples

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

Links

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

Programs

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 *)

PARI

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