OFFSET
1,3
COMMENTS
See A376081 for more information.
LINKS
Paolo Xausa, Table of n, a(n) for n = 1..10000
MATHEMATICA
A376081row[n_] := If[n < 3, {n - 1}, Module[{k = 1}, NestWhileList[Mod[2 * Fibonacci[++k] - 1, n] &, 1, {#, #2} != {1, n-1} &, {3, 2}]]];
Array[Total[A376081row[#]] &, 100]
CROSSREFS
KEYWORD
nonn
AUTHOR
Paolo Xausa, Sep 10 2024
STATUS
approved