%I #4 Apr 09 2020 23:52:58
%S 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,
%T 61,64,66,69,74,77,82,85,87,90,95,98,103,106,108,111,116,119,124,129,
%U 132,137,140,142,145,150,153,158,163,166,171,174,176,179,184
%N Numbers that are not the sum of two distinct terms of A003622.
%C Conjecture: the difference sequences of this sequence and its complement consist exclusively of Fibonacci numbers (A000045).
%e (See A333308.)
%t w[n_] := Floor[n*GoldenRatio] + n - 1; (* A003622 *)
%t s[n_] := Table[w[n] + w[k], {k, 1, n - 1}];
%t t = Table[s[n], {n, 1, 200}]; u = Union[Flatten[t]] (* A333308 *)
%t v = Complement[Range[Max[u]], u] (* A333309 *)
%Y Cf. A000045, A003622, A035513, A333308.
%K nonn,easy
%O 1,2
%A _Clark Kimberling_, Apr 01 2020
|