A045961 Twin A045954's (middle terms) that are primes.

3, 5, 11, 19, 43, 53, 101, 131, 139, 149, 197, 229, 373, 389, 419, 523, 547, 587, 643, 709, 739, 883, 997, 1091, 1093, 1187, 1483, 1621, 1931, 1973, 2099, 2243, 2347, 2357, 2411, 2549, 2677, 2731, 2741, 2803, 2963, 3011, 3203, 3307, 3331, 3461, 3467, 3541, 3733

Offset: 1

Author

Felice Russo

Keywords

• nonn

Comments

Also, prime terms of A045957. - Sean A. Irvine, Mar 29 2021

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Crossrefs

Intersection of A000040 and A045957.

Cf. A045954.

Programs

Mathematica

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 *)

Extensions

More terms from David W. Wilson