A333309 Numbers that are not the sum of two distinct terms of A003622.

1, 2, 3, 4, 6, 8, 9, 11, 12, 14, 17, 19, 22, 24, 27, 30, 32, 35, 38, 40, 43, 48, 51, 53, 56, 61, 64, 66, 69, 74, 77, 82, 85, 87, 90, 95, 98, 103, 106, 108, 111, 116, 119, 124, 129, 132, 137, 140, 142, 145, 150, 153, 158, 163, 166, 171, 174, 176, 179, 184

Offset: 1

Author

Clark Kimberling, Apr 01 2020

Keywords

• nonn
• easy

Comments

Conjecture: the difference sequences of this sequence and its complement consist exclusively of Fibonacci numbers (A000045).

Examples

			(See A333308.)
		

Crossrefs

Cf. A000045, A003622, A035513, A333308.

Programs

Mathematica

w[n_] := Floor[n*GoldenRatio] + n - 1; (* A003622 *)
s[n_] := Table[w[n] + w[k], {k, 1, n - 1}];
t = Table[s[n], {n, 1, 200}]; u = Union[Flatten[t]]  (* A333308 *)
v = Complement[Range[Max[u]], u]  (* A333309 *)