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 A155140 #13 Jul 17 2024 18:06:23
%S A155140 293,347,571,829,1021,1229,1327,1373,1471,1621,2111,2129,2371,2531,
%T A155140 2579,2879,2887,3181,3271,3929,4621,4801,4909,5279,5333,5521,5639,
%U A155140 5683,5827,6133,6421,6521,6709,6863,6871,7079,7321,7529,7591,8179,8221,8429,8963
%N A155140 Primes p such that both p-+4 are not squarefree.
%H A155140 John Cerkan, <a href="/A155140/b155140.txt">Table of n, a(n) for n = 1..10000</a>
%t A155140 <<NumberTheory`NumberTheoryFunctions` lst={};Do[p=Prime[n];If[ !SquareFreeQ[p-4]&&!SquareFreeQ[p+4],AppendTo[lst,p]],{n,7!}];lst
%t A155140 Select[Prime[Range[1200]],NoneTrue[#+{4,-4},SquareFreeQ]&] (* _Harvey P. Dale_, Jul 17 2024 *)
%o A155140 (PARI) lista(nn) = forprime(p=2, nn, if (! issquarefree(p-4) && ! issquarefree(p+4), print1(p, ", "))); \\ _Michel Marcus_, Jul 05 2016
%Y A155140 Cf. A153213, A049282, A155139, A155141, A155142.
%K A155140 nonn
%O A155140 1,1
%A A155140 _Vladimir Joseph Stephan Orlovsky_, Jan 21 2009