A045956 Twin even-lucky-numbers: upper terms.

4, 6, 12, 20, 22, 36, 44, 52, 54, 70, 100, 102, 116, 118, 132, 140, 150, 172, 198, 214, 230, 246, 262, 300, 310, 326, 374, 388, 390, 420, 436, 438, 518, 524, 534, 548, 588, 598, 630, 644, 646, 708, 710, 716, 740, 742, 780, 870, 884, 886, 916, 964, 966, 996, 998, 1092

Offset: 1

Author

Felice Russo

Keywords

• nonn

Links

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

Crossrefs

Cf. A045954, A045955, A045957.

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]; twinUp[max_] := Module[{s = evenLuckies[max]}, s[[Position[Differences[s], 2] // Flatten]] + 2]; twinUp[1100] (* Amiram Eldar, Mar 20 2024, after Robert G. Wilson v at A045954 *)

Formula

a(n) = A045957(n) + 1 = A045955(n) + 2. - Amiram Eldar, Mar 20 2024