OFFSET
1,1
EXAMPLE
n = 2, prime[(n + 1)^2] - prime[n^2]=23 - 7 = 16 = 4^2; n = 30, prime[(n + 1)^2] - prime[n^2]=7573 - 6997 = 576 = 24^2
MATHEMATICA
Do[If[IntegerQ[Sqrt[Prime[(i + 1)^2] - Prime[i^2]]], Print[i]], {i, 1, 20000}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Oct 06 2008
EXTENSIONS
a(28)-a(39) from Donovan Johnson, Sep 16 2009
STATUS
approved