A057746 Even numbers not the sum of a pair of twin even-lucky-numbers (from A045955, A045956).

2, 292, 324, 356, 372, 612, 1074, 1202, 1842

Offset

1,1

Comments

Conjectured to be complete.

Links

Table of n, a(n) for n=1..9.

Mathematica

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 *)

Crossrefs

Cf. A045954, A045955, A045956.

Sequence in context: A296591 A296607 A203771 * A362517 A132518 A277126

Adjacent sequences: A057743 A057744 A057745 * A057747 A057748 A057749

Keyword

fini,full,nonn

Author

Naohiro Nomoto, Oct 30 2000

Status

approved