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 A172056 #9 Jul 17 2022 07:38:11
%S A172056 59,61,103,109,149,151,163,257,313,389,401,449,479,541,569,571,673,
%T A172056 677,709,733,769,821,823,839,857,883,919,947,971,983,1061,1087,1093,
%U A172056 1097,1129,1151,1163,1181,1249,1283,1301,1319,1321,1381,1433,1489,1493,1549
%N A172056 Primes p such that 2*p+-1 and 2*p+-3 are all composites.
%H A172056 Harvey P. Dale, <a href="/A172056/b172056.txt">Table of n, a(n) for n = 1..1000</a>
%e A172056 a(1)=59 because 2*59-1=117, 2*59+1=119, 2*59-3=115, 2*59+3=121 are all composites.
%t A172056 okQ[n_]:=Union[PrimeQ[{2n+1,2n-1,2n+3,2n-3}]]=={False}; Select[Prime[Range[250]],okQ] (* _Harvey P. Dale_, Feb 07 2010 *)
%t A172056 Select[Prime[Range[300]],AllTrue[2#+{1,3,-1,-3},CompositeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Feb 20 2015 *)
%Y A172056 Cf. A000040, A002808, A068497.
%K A172056 nonn
%O A172056 1,1
%A A172056 _Juri-Stepan Gerasimov_, Jan 24 2010
%E A172056 Corrected and extended by _Harvey P. Dale_, Feb 07 2010