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 A098649 #12 Dec 25 2019 18:26:09
%S A098649 11,17,37,61,73,137,157,181,241,257,277,373,397,409,421,433,577,601,
%T A098649 617,641,661,769,821,1097,1117,1129,1153,1201,1237,1249,1297,1453,
%U A098649 1481,1597,1621,1657,1861,1933,2089,2129,2281,2297,2417,2441,2473,2749,2857,3037
%N A098649 Primes of the form 2(p+q) + 1, where p and q are consecutive primes.
%C A098649 a(n) == 1 (mod 4), except for the initial term.
%H A098649 Vincenzo Librandi, <a href="/A098649/b098649.txt">Table of n, a(n) for n = 1..1000</a>
%t A098649 Select[ Table[2(Prime[i] + Prime[i + 1]) + 1, {i, 150}], PrimeQ[ # ] &] (* _Robert G. Wilson v_, Sep 19 2004 *)
%t A098649 Select[2*Total[#]+1&/@Partition[Prime[Range[200]],2,1],PrimeQ] (* _Harvey P. Dale_, Dec 25 2019 *)
%Y A098649 Cf. A097361.
%K A098649 nonn
%O A098649 1,1
%A A098649 _Giovanni Teofilatto_, Sep 18 2004
%E A098649 More terms from _Robert G. Wilson v_, Sep 19 2004