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 A057746 #7 Mar 20 2024 03:02:43
%S A057746 2,292,324,356,372,612,1074,1202,1842
%N A057746 Even numbers not the sum of a pair of twin even-lucky-numbers (from A045955, A045956).
%C A057746 Conjectured to be complete.
%t A057746 seq[max_] := Module[{lst = Range[2, max, 2], i = 2, len, t}, While[i <= (len = Length@lst) && (k = lst[[i]]) <= len, lst = Drop[lst, {k, len, k}]; i++]; t = lst[[Position[Differences[lst], 2] // Flatten]]; Complement[Range[2, max, 2], Total /@ Tuples[Join[t, t + 2], 2]]]; seq[2000] (* _Amiram Eldar_, Mar 20 2024, after _Robert G. Wilson v_ at A045954 *)
%Y A057746 Cf. A045954, A045955, A045956.
%K A057746 fini,full,nonn
%O A057746 1,1
%A A057746 _Naohiro Nomoto_, Oct 30 2000