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

Links

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

Formula

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

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

Crossrefs

Cf. A045954, A045956, A045957.

Sequence in context: A057491 A005541 A375625 * A182248 A393555 A093695

Adjacent sequences: A045952 A045953 A045954 * A045956 A045957 A045958

Keyword

nonn

Author

Felice Russo

Status

approved