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 A097358 #8 Sep 07 2025 01:19:24
%S A097358 11,13,17,19,29,31,37,41,43,53,61,67,73,79,89,97,101,109,113,127,137,
%T A097358 139,149,151,157,163,173,181,193,197,199,211,223,229,233,241,257,269,
%U A097358 277,281,283,293,307,313,317,331,337,349,353,367,373,389,397,401,409
%N A097358 Primes of the form 2*(p+q) + 1, p and q prime.
%t A097358 Select[2#+1&/@Union[Total/@Tuples[Prime[Range[50]],2]],PrimeQ] (* _Harvey P. Dale_, Oct 12 2019 *)
%o A097358 (PARI) {z=410;v=[];p=2;while(2*(p+2)+1<z,q=2;while((n=2*(p+q)+1)<z,if(isprime(n),v=concat(v,n));q=nextprime(q+1));p=nextprime(p+1));v=vecsort(v);m=0;for(j=1,length(v),if(m<v[j],m=v[j];print1(m,", ")))} \\ _Klaus Brockhaus_, Sep 19 2004
%K A097358 nonn,changed
%O A097358 1,1
%A A097358 _Giovanni Teofilatto_, Sep 18 2004
%E A097358 Edited and extended by _Klaus Brockhaus_, Sep 19 2004