A131349 Least Fibonacci number Fibonacci(j) greater than the previous term a(n-1) such that Fibonacci(j) - a(n-1) == 0 (mod n-1) with a(1)=1.

1, 2, 8, 89, 233, 46368, 14930352, 32951280099, 10610209857723, 72723460248141, 14472334024676221, 37889062373143906, 679891637638612258, 26925748508234281076009, 483162952612010163284885, 59425114757512643212875125, 251728825683549488150424261

Offset

1,2

Links

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

Mathematica

fibNbr[n_] := Round@ Log[ GoldenRatio, n*Sqrt@5]; g[lst_] := Block[{k, len = Length@lst, fa = Last@lst}, k = fibNbr@fa + 1; While[fb = Fibonacci@k; Mod[fb - fa, len] != 0, k++ ]; fb]; f[lst_] := Append[lst, g@lst]; Nest[f, {1}, 16]

Crossrefs

Cf. A000045, A129896.

Sequence in context: A009486 A110384 A153887 * A319124 A294194 A067964

Adjacent sequences: A131346 A131347 A131348 * A131350 A131351 A131352

Keyword

nonn

Author

Robert G. Wilson v, Jul 02 2007

Extensions

More terms from Alois P. Heinz, Aug 21 2021

Status

approved