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 A124098 #13 Sep 08 2022 08:45:28
%S A124098 3,5,11,19,31,59,79,89,131,151,191,199,229,241,311,389,409,431,509,
%T A124098 521,541,661,719,739,821,971,1109,1151,1181,1451,1549,1669,1759,1801,
%U A124098 1949,1951,2011,2039,2069,2089,2111,2131,2341,2411,2671,2699,2791,3001,3181
%N A124098 Primes p such that 3p -+ 4 are primes.
%F A124098 a(n)= A125216(n)/3.
%t A124098 lst={}; Do[p=Prime[n]; If[PrimeQ[3*p-4]&&PrimeQ[3*p+4],AppendTo[lst,p]],{n,7!}]; lst (* _Vladimir Joseph Stephan Orlovsky_, Aug 16 2009 *)
%t A124098 Select[Prime[Range[500]],AllTrue[3#+{4,-4},PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Oct 02 2015 *)
%o A124098 (Magma) [p: p in PrimesUpTo(70000)| IsPrime(3*p-4)and IsPrime(3*p+4)] // _Vincenzo Librandi_, Jan 29 2011
%Y A124098 Cf. A125215, A125216, A125272.
%K A124098 nonn
%O A124098 1,1
%A A124098 _Zak Seidov_, Nov 26 2006