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 A094069 #11 May 21 2021 15:50:47
%S A094069 7,13,37,79,349,397,457,613,769,1213,1429,1783,2347,2377,2473,3907,
%T A094069 4129,4513,4783,5437,5647,7477,7603,7879,8803,9829,10429,10453,10627,
%U A094069 11443,11863,11923,12109,13033,13099,13327,14173,14779,15679,16057,16069
%N A094069 Prime(p)-4 for primes p such that prime(p) - 4 is prime.
%C A094069 Primes q such that q+4 is in A006450. - _Robert Israel_, Nov 09 2020
%H A094069 Robert Israel, <a href="/A094069/b094069.txt">Table of n, a(n) for n = 1..10000</a>
%e A094069 Prime(13) = 41. 41 - 4 = 37.
%p A094069 R:= NULL: p:= 7:
%p A094069 for i from 5 to 10000 do
%p A094069 q:= p; p:= nextprime(p);
%p A094069 if isprime(i) and q=p-4 then R:= R, q fi;
%p A094069 od:
%p A094069 R; # _Robert Israel_, Nov 09 2020
%t A094069 Prime[#]&/@Select[Prime[Range[2,300]],PrimeQ[Prime[#]-4]&]-4 (* _Harvey P. Dale_, May 21 2021 *)
%o A094069 (PARI) a(n) = { forprime(x=2,n, y=prime(x)- 4; if(isprime(y),print1(y",")) ) }
%Y A094069 Cf. A006450.
%Y A094069 This is a subsequence of A172367.
%K A094069 nonn
%O A094069 1,1
%A A094069 _Cino Hilliard_, May 31 2004
%E A094069 Definition corrected by _Robert Israel_, Nov 09 2020