|
%I #8 Mar 30 2012 18:57:33
%S 4,5,6,7,8,9,10,11,12,14,16,17,18,19,20,22,23,24,25,26,27,28,29,30,32,
%T 36,37,40,41,42,43,44,45,47,49,52,58,60,61,64,65,66,68,70,71,73,76,79,
%U 84,92,94,95,97,98,103,104,105,107,110,113,115,118,123,128
%N Ordered sums f+3*g, where f and g are Fibonacci numbers (A000045).
%t c = 1; d = 3; f[n_] := Fibonacci[n];
%t g[n_] := c*f[n]; h[n_] := d*f[n];
%t t[i_, j_] := h[i] + g[j];
%t u = Table[t[i, j], {i, 1, 20}, {j, 1, 20}];
%t v = Union[Flatten[u ]] (* A191842 *)
%t t1[i_, j_] := If[g[i] - h[j] > 0, g[i] - h[j], 0]
%t u1 = Table[t1[i, j], {i, 1, 20}, {j, 1, 20}];
%t v1 = Union[Flatten[u1 ]] (* A191843: f(i)-3*f(j) *)
%t g1[n_] := d*f[n]; h1[n_] := c*f[n];
%t t2[i_, j_] := If[g1[i] - h1[j] > 0, g1[i] - h1[j], 0]
%t u2 = Table[t2[i, j], {i, 1, 20}, {j, 1, 20}];
%t v2 = Union[Flatten[u2 ]] (* A191844: 3*f(i)-f(j) *)
%t v3 = Union[v1, v2] (* A191845 *)
%Y Cf. A191843, A191844, A191845.
%K nonn
%O 1,1
%A _Clark Kimberling_, Jun 17 2011
|
