OFFSET
1,2
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
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jul 02 2007
EXTENSIONS
More terms from Alois P. Heinz, Aug 21 2021
STATUS
approved