A191884 Ordered sequence of nonnegative differences f-5*g, where f and g are positive Fibonacci numbers (A000045).

0, 1, 2, 3, 5, 6, 8, 11, 13, 16, 17, 21, 27, 28, 32, 34, 37, 43, 45, 53, 55, 58, 63, 70, 73, 85, 89, 95, 100, 105, 113, 118, 138, 144, 153, 163, 168, 173, 183, 191, 223, 233, 248, 263, 273, 278, 283, 296, 309, 361, 377, 401, 426, 441, 451, 456, 461, 479, 500

Offset

1,3

Links

G. C. Greubel, Table of n, a(n) for n = 1..5000

Mathematica

c = 2; d = 5; f[n_] := Fibonacci[n];
g[n_] := c*f[n]; h[n_] := d*f[n];
t[i_, j_] := h[i] + g[j];
u = Table[t[i, j], {i, 1, 20}, {j, 1, 20}];
v = Union[Flatten[u ]]    (* A191883 *)
t1[i_, j_] := If[g[i] - h[j] > 0, g[i] - h[j], 0]
u1 = Table[t1[i, j], {i, 1, 20}, {j, 1, 20}];
v1 = Union[Flatten[u1 ]]  (* A191884: c*f(i)-d*f(j) *)
g1[n_] := d*f[n]; h1[n_] := c*f[n];
t2[i_, j_] := If[g1[i] - h1[j] > 0, g1[i] - h1[j], 0]
u2 = Table[t2[i, j], {i, 1, 20}, {j, 1, 20}];
v2 = Union[Flatten[u2 ]]  (* A191885: d*f(i)-c*f(j) *)
v3 = Union[v1, v2]        (* A191886 *)

Crossrefs

Cf. A191883, A191885, A191886.

Sequence in context: A179799 A247588 A275341 * A291693 A266542 A095172

Adjacent sequences: A191881 A191882 A191883 * A191885 A191886 A191887

Keyword

nonn

Author

Clark Kimberling, Jun 18 2011

Status

approved