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,1

Comments

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

Links

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

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

Crossrefs

Intersection of A000040 and A045957.

Cf. A045954.

Sequence in context: A129384 A131887 A045691 * A293820 A281380 A117272

Adjacent sequences: A045958 A045959 A045960 * A045962 A045963 A045964

Keyword

nonn

Author

Felice Russo

Extensions

More terms from David W. Wilson

Status

approved