A045955 Twin Even-Lucky-Numbers: lower terms.

2, 4, 10, 18, 20, 34, 42, 50, 52, 68, 98, 100, 114, 116, 130, 138, 148, 170, 196, 212, 228, 244, 260, 298, 308, 324, 372, 386, 388, 418, 434, 436, 516, 522, 532, 546, 586, 596, 628, 642, 644, 706, 708, 714, 738, 740, 778, 868, 882, 884, 914, 962, 964, 994, 996, 1090

Offset: 1

Author

Felice Russo

Keywords

• nonn

Links

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

Crossrefs

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

Formula

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