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 A237812 #13 Jun 27 2023 17:30:57 %S A237812 2,3,5,23,29,83,89,113,173,233,239,293,509,653,719,743,1013,1049,1223, %T A237812 1289,1499,2003,2039,2063,2129,2339,2393,2459,2543,2693,2753,2819, %U A237812 2963,3389,3449,4409,4733,4919,5039,6053,6113,6263,6323,6329,6449,7433,7643 %N A237812 Primes p such that 2*p+1 and 2*p+13 are also prime. %H A237812 Vincenzo Librandi, <a href="/A237812/b237812.txt">Table of n, a(n) for n = 1..1000</a> %e A237812 23 is in the sequence because 23, 2*23+1 = 47 and 2*23+13 = 59 are all prime. %t A237812 Select[Prime[Range[10000]], PrimeQ[2 # + 1] && PrimeQ[2 # + 13] &] (* _Vincenzo Librandi_, Feb 15 2014 *) %t A237812 Select[Prime[Range[1000]],AllTrue[2#+{1,13},PrimeQ]&] (* _Harvey P. Dale_, Jun 27 2023 *) %o A237812 (PARI) s=[]; forprime(p=2, 10000, if(isprime(2*p+1) && isprime(2*p+13), s=concat(s, p))); s %o A237812 (Magma) [p: p in PrimesUpTo(9200) | IsPrime(2*p+1) and IsPrime(2*p+13)]; // _Vincenzo Librandi_, Feb 15 2014 %Y A237812 Cf. A126107, A237810, A237811, A237813, A237814. %K A237812 nonn %O A237812 1,1 %A A237812 _Colin Barker_, Feb 13 2014