Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%I #22 Jun 28 2024 04:24:24
%S 17,47,71,283,881,1151,1913,2591,3527,4049,6047,7193,7433,15137,20807,
%T 21617,24197,26903,28793,34847,46817,53129,56443,69191,74489,83231,
%U 84047,98563,103049,103967,109507,110441,112337,136237,149057,151247
%N Smaller of two consecutive primes whose sum is a square.
%H Amiram Eldar, <a href="/A061275/b061275.txt">Table of n, a(n) for n = 1..10000</a> (terms 1..1000 from Harry J. Smith)
%F a(n) = A000040(A064397(n)). - _Amiram Eldar_, Jun 28 2024
%e a(4) = 283, the next prime is 293 and 283 + 293 = 576 = 24^2.
%t Transpose[Select[Partition[Prime[Range[20000]],2,1],IntegerQ[Sqrt[Plus@@# ]]&]][[1]] (* _Harvey P. Dale_, Aug 04 2009 *)
%o (PARI) { default(primelimit, 550655327); n=0; q=2; forprime (p=3, 550655327, if (issquare(p+q), write("b061275.txt", n++, " ", q)); q=p ) } \\ _Harry J. Smith_, Jul 20 2009
%Y Subset of A091624.
%Y Cf. A000040, A064397, A206279, A206280, A206281.
%K nonn,easy
%O 1,1
%A _Amarnath Murthy_, Apr 25 2001
%E More terms from Larry Reeves (larryr(AT)acm.org) and _Asher Auel_, May 15 2001
%E Offset changed from 0 to 1 by _Harry J. Smith_, Jul 20 2009