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 A045961 #18 Mar 20 2024 03:11:38
%S A045961 3,5,11,19,43,53,101,131,139,149,197,229,373,389,419,523,547,587,643,
%T A045961 709,739,883,997,1091,1093,1187,1483,1621,1931,1973,2099,2243,2347,
%U A045961 2357,2411,2549,2677,2731,2741,2803,2963,3011,3203,3307,3331,3461,3467,3541,3733
%N A045961 Twin A045954's (middle terms) that are primes.
%C A045961 Also, prime terms of A045957. - _Sean A. Irvine_, Mar 29 2021
%H A045961 Amiram Eldar, <a href="/A045961/b045961.txt">Table of n, a(n) for n = 1..10000</a>
%t A045961 evenLuckies[max_] := Module[{lst = Range[2, max, 2], i = 2, len}, While[i <= (len = Length@lst) && (k = lst[[i]]) <= len, lst = Drop[lst, {k, len, k}]; i++]; lst]; twinMid[max_] := Module[{s = evenLuckies[max]}, Select[s[[Position[ Differences[s], 2] // Flatten]] + 1, PrimeQ]]; twinMid[3800] (* _Amiram Eldar_, Mar 20 2024, after _Robert G. Wilson v_ at A045954 *)
%Y A045961 Intersection of A000040 and A045957.
%Y A045961 Cf. A045954.
%K A045961 nonn
%O A045961 1,1
%A A045961 _Felice Russo_
%E A045961 More terms from _David W. Wilson_