Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #19 Jul 12 2024 06:23:08
%S 19,73,883,1153,2593,3529,4051,15139,20809,34849,46819,69193,83233,
%T 103969,112339,149059,176419,180001,206083,281251,362953,388963,
%U 438049,472393,478243,538723,649801,734473,808993,960499,1080451,1143073
%N Larger member of twin prime pairs whose sum is a square.
%H Amiram Eldar, <a href="/A118593/b118593.txt">Table of n, a(n) for n = 1..10000</a> (terms 1..180 from Harvey P. Dale)
%F a(n) = A069496(n) + 2.
%e 17 and 19 are twin primes whose sum is 36, a square, so 19 is a term in this sequence.
%t Transpose[Select[Partition[Prime[Range[200000]],2,1],#[[2]]-#[[1]]==2 && IntegerQ[Sqrt[Total[#]]]&]][[2]] (* _Harvey P. Dale_, Jul 29 2014 *)
%o (PARI) g(n) = for(x=1,n,p1=prime(x);p2=prime(x+1);if(p2-p1==2&issquare(p1+p2),print1(p2",")))
%Y Cf. A069496, A118593.
%K easy,nonn
%O 1,1
%A _Cino Hilliard_, May 08 2006