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 A163182 #12 Aug 01 2022 09:55:07 %S A163182 3,13,43,53,73,83,97,127,137,139,163,167,173,197,199,211,223,251,269, %T A163182 277,281,293,311,317,337,347,379,383,397,409,419,421,433,443,449,463, %U A163182 491,503,547,557,563,593,601,607,613,617,641,643,727,733,757,787,809 %N A163182 Primes p such that neither 4p+3 nor 4p-3 are prime. %C A163182 Primes neither in A023213 nor in A157978. %H A163182 Marius A. Burtea, <a href="/A163182/b163182.txt">Table of n, a(n) for n = 1..5673</a> %e A163182 For p=3, 4*3+3=15 (not prime) and 4*3-3=9 (not prime), so the prime p=3 is in the sequence. %e A163182 For p=7, 4*7+3=31 (prime), so the prime p=7 is not in the sequence. %t A163182 lst={};Do[p=Prime[n];If[ !PrimeQ[2*p+(p-1)+(p-2)]&&!PrimeQ[2*p+(p+1)+(p+2)], AppendTo[lst,p]],{n,3*5!}];lst %t A163182 Select[Prime[Range[150]],NoneTrue[4#+{3,-3},PrimeQ]&] (* _Harvey P. Dale_, Aug 01 2022 *) %o A163182 (PARI) isok(p) = isprime(p) && !isprime(4*p+3) && !isprime(4*p-3); \\ _Michel Marcus_, Oct 12 2018 %Y A163182 Cf. A023213, A106015, A157978. %K A163182 nonn,easy %O A163182 1,1 %A A163182 _Vladimir Joseph Stephan Orlovsky_, Jul 22 2009 %E A163182 Edited by _R. J. Mathar_, Jul 25 2009, Jul 27 2009