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

Links

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

Formula

a(n) = A045957(n) + 1 = A045955(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]; 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 *)

Crossrefs

Cf. A045954, A045955, A045957.

Sequence in context: A087881 A063607 A306270 * A057339 A336552 A160856

Adjacent sequences: A045953 A045954 A045955 * A045957 A045958 A045959

Keyword

nonn

Author

Felice Russo

Status

approved