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 A103802 #18 Sep 08 2022 08:45:17 %S A103802 7,11,19,31,59,61,79,101,151,179,229,311,359,389,409,521,709,719,751, %T A103802 809,971,1039,1061,1151,1171,1201,1361,1459,1481,1669,1699,1811,1949, %U A103802 1999,2131,2341,2371,2411,2609,2671,2711,2791,2851,3019,3041,3061,3119 %N A103802 Primes p such that 2p - 9 and 2p + 9 are both primes. %F A103802 p, 2p-9 and 2p+9 all are positive and are primes (hence we omit p=2). %t A103802 Select[Range[7,6000], PrimeQ[ # ] && PrimeQ[2# + 9] && PrimeQ[2# - 9] &] %t A103802 okQ[n_]:=Module[{c=2n},PrimeQ[c+9]&&PrimeQ[c-9]]; Select[Prime[ Range[5,500]],okQ] (* _Harvey P. Dale_, Apr 25 2011 *) %o A103802 (Magma) [p: p in PrimesUpTo(3200)| IsPrime(2*p+9) and IsPrime(2*p-9) ]; // _Vincenzo Librandi_, Jan 28 2011 %K A103802 nonn %O A103802 1,1 %A A103802 _Zak Seidov_, Feb 16 2005