A114747 a(1) = 1, a(2) = 1, a(n+1) = least Fibonacci number of the form k*(a(n-1)) - a(n), not included earlier.

1, 1, 2, 3, 5, 13, 377, 10946

Offset

1,3

Comments

No further terms exist since there is no Fibonacci number congruent to -10946 modulo 377. - Max Alekseyev, Jun 16 2011

Links

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

Example

377 = 5*78 -13, k = 78.

Mathematica

a[1] = a[2] = 1;
a[n_] := a[n] = For[i = 1, True, i++, f = Fibonacci[i]; If[FreeQ[Array[a, n-1], f] && IntegerQ[(f + a[n-1])/a[n-2]], Return[f]]];
Array[a, 8] (* Jean-François Alcover, Nov 09 2020 *)

Crossrefs

Cf. A114748.

Sequence in context: A041047 A120494 A038601 * A041639 A006985 A042907

Adjacent sequences: A114744 A114745 A114746 * A114748 A114749 A114750

Keyword

nonn,fini,full

Author

Amarnath Murthy, Nov 15 2005

Extensions

Keywords fini, full from Max Alekseyev, Jun 16 2011

Status

approved