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: A034455 A057491 A005541 * A182248 A093695 A308529

Adjacent sequences: A045952 A045953 A045954 * A045956 A045957 A045958

Keyword

nonn

Author

Felice Russo

Status

approved