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 A370157 #8 Feb 17 2024 12:39:27 %S A370157 2,31,47,61,67,73,101,107,109,137,151,157,181,191,193,211,223,229,241, %T A370157 263,271,277,281,283,307,331,347,359,373,379,389,401,421,431,443,461, %U A370157 463,467,487,509,541,547,557,563,571,587,601,613,617,619,631,641,647 %N A370157 Primes p such that both 3p+2 and (p-2)/3 are composite or 0. %t A370157 Select[Prime[Range[200]], ! PrimeQ[3 # + 2] && ! PrimeQ[(# - 2)/3] &] %o A370157 (PARI) isok(p) = if (isprime(p), !isprime(3*p+2) && !(((p%3) == 2) && isprime((p-2)/3))); \\ _Michel Marcus_, Feb 17 2024 %Y A370157 Cf. A000040, A115058 (supersequence), A023208, A370156. %K A370157 nonn %O A370157 1,1 %A A370157 _Clark Kimberling_, Feb 10 2024