|
|
A145290
|
|
Numbers n such that prime[(n + 1)^2] - prime[n^2] is a perfect square.
|
|
1
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
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
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|