|
%I #4 Mar 30 2012 17:35:01
%S 2,30,32,180,269,820,1282,1403,2102,2152,2344,2616,4459,6329,6604,
%T 7325,7893,9988,10270,10441,10662,11700,11740,11846,12279,18754,18927,
%U 23781,27096,27294,27531,31005,33616,36374,38266,43557,43680,44263,45945
%N Numbers n such that prime[(n + 1)^2] - prime[n^2] is a perfect square.
%C n such that A011757(n + 1) - A011757(n) is a perfect square
%e 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
%t Do[If[IntegerQ[Sqrt[Prime[(i + 1)^2] - Prime[i^2]]], Print[i]], {i, 1, 20000}]
%Y A011757 prime(n^2)
%K nonn
%O 1,1
%A _Zak Seidov_, Oct 06 2008
%E a(28)-a(39) from _Donovan Johnson_, Sep 16 2009
|
