|
%I #9 Nov 21 2013 12:48:58
%S 19,53,73,293,883,1153,1931,2593,3529,4051,6053,7207,7451,15139,20809,
%T 21647,24203,26921,28807,34849,46819,53147,56453,69193,74507,83233,
%U 84053,98573,103067,103969,109517,110459,112339,136247,149059,151253
%N Larger of two consecutive primes whose sum is a square.
%H Harvey P. Dale, <a href="/A118591/b118591.txt">Table of n, a(n) for n = 1..600</a>
%e 17 and 19 are consecutive primes whose sum is 36, a square, so 19 is the first term.
%t Transpose[Select[Partition[Prime[Range[14000]],2,1],IntegerQ[ Sqrt[ Total[#]]]&]] [[2]] (* _Harvey P. Dale_, May 03 2012 *)
%o (PARI) g(n) = for(x=2,n,if(issquare(prime(x)+prime(x-1)),print1(prime(x)",")))
%K easy,nonn
%O 1,1
%A _Cino Hilliard_, May 08 2006
|
