This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A118593 #19 Jul 12 2024 06:23:08 %S A118593 19,73,883,1153,2593,3529,4051,15139,20809,34849,46819,69193,83233, %T A118593 103969,112339,149059,176419,180001,206083,281251,362953,388963, %U A118593 438049,472393,478243,538723,649801,734473,808993,960499,1080451,1143073 %N A118593 Larger member of twin prime pairs whose sum is a square. %H A118593 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 A118593 a(n) = A069496(n) + 2. %e A118593 17 and 19 are twin primes whose sum is 36, a square, so 19 is a term in this sequence. %t A118593 Transpose[Select[Partition[Prime[Range[200000]],2,1],#[[2]]-#[[1]]==2 && IntegerQ[Sqrt[Total[#]]]&]][[2]] (* _Harvey P. Dale_, Jul 29 2014 *) %o A118593 (PARI) g(n) = for(x=1,n,p1=prime(x);p2=prime(x+1);if(p2-p1==2&issquare(p1+p2),print1(p2","))) %Y A118593 Cf. A069496, A118593. %K A118593 easy,nonn %O A118593 1,1 %A A118593 _Cino Hilliard_, May 08 2006