A145290 Numbers n such that prime[(n + 1)^2] - prime[n^2] is a perfect square.
2, 30, 32, 180, 269, 820, 1282, 1403, 2102, 2152, 2344, 2616, 4459, 6329, 6604, 7325, 7893, 9988, 10270, 10441, 10662, 11700, 11740, 11846, 12279, 18754, 18927, 23781, 27096, 27294, 27531, 31005, 33616, 36374, 38266, 43557, 43680, 44263, 45945
Offset: 1
Keywords
Examples
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
Crossrefs
A011757 prime(n^2)
Programs
-
Mathematica
Do[If[IntegerQ[Sqrt[Prime[(i + 1)^2] - Prime[i^2]]], Print[i]], {i, 1, 20000}]
Extensions
a(28)-a(39) from Donovan Johnson, Sep 16 2009
Comments