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 A155141 #12 Jul 06 2016 02:32:34
%S A155141 2,3,7,11,17,19,37,43,47,61,73,83,89,97,101,107,109,127,137,163,181,
%T A155141 191,197,199,223,227,233,251,263,269,277,281,307,313,317,331,349,353,
%U A155141 389,397,431,433,439,443,449,457,461,467,487,523,541,547,557,569,577,587
%N A155141 Primes p such that both p-+4 are squarefree.
%H A155141 John Cerkan, <a href="/A155141/b155141.txt">Table of n, a(n) for n = 1..10000</a>
%t A155141 <<NumberTheory`NumberTheoryFunctions` lst={};Do[p=Prime[n];If[SquareFreeQ[p-4]&&SquareFreeQ[p+4],AppendTo[lst,p]],{n,6!}];lst
%t A155141 Select[Prime[Range[150]],AllTrue[#+{4,-4},SquareFreeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Jun 15 2016 *)
%o A155141 (PARI) lista(nn) = forprime(p=2, nn, if (issquarefree(p-4) && issquarefree(p+4), print1(p, ", "))); \\ _Michel Marcus_, Jul 06 2016
%Y A155141 Cf. A153213, A049282, A155139, A155140, A155142.
%K A155141 nonn
%O A155141 1,1
%A A155141 _Vladimir Joseph Stephan Orlovsky_, Jan 21 2009