OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
FORMULA
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
KEYWORD
nonn
AUTHOR
STATUS
approved