This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A045956 #10 Mar 20 2024 03:04:01
%S A045956 4,6,12,20,22,36,44,52,54,70,100,102,116,118,132,140,150,172,198,214,
%T A045956 230,246,262,300,310,326,374,388,390,420,436,438,518,524,534,548,588,
%U A045956 598,630,644,646,708,710,716,740,742,780,870,884,886,916,964,966,996,998,1092
%N A045956 Twin even-lucky-numbers: upper terms.
%H A045956 Amiram Eldar, <a href="/A045956/b045956.txt">Table of n, a(n) for n = 1..10000</a>
%F A045956 a(n) = A045957(n) + 1 = A045955(n) + 2. - _Amiram Eldar_, Mar 20 2024
%t A045956 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 *)
%Y A045956 Cf. A045954, A045955, A045957.
%K A045956 nonn
%O A045956 1,1
%A A045956 _Felice Russo_