login
A376082
a(n) is the period of the Leonardo numbers (A001595) modulo n.
3
1, 1, 8, 3, 20, 8, 16, 6, 24, 20, 10, 24, 28, 16, 40, 12, 36, 24, 18, 60, 16, 10, 48, 24, 100, 28, 72, 48, 14, 40, 30, 24, 40, 36, 80, 24, 76, 18, 56, 60, 40, 16, 88, 30, 120, 48, 32, 24, 112, 100, 72, 84, 108, 72, 20, 48, 72, 14, 58, 120, 60, 30, 48, 48, 140
OFFSET
1,3
COMMENTS
See A376081 for more information.
FORMULA
Apparently, a(2*k) = A001175(k), for k >= 1.
MATHEMATICA
A376082[n_] := If[n < 3, 1, Module[{k = 1}, NestWhile[Mod[2*Fibonacci[++k] - 1, n] &, 1, {#, #2} != {1, n-1} &, {3, 2}]; k]];
Array[A376082, 100]
CROSSREFS
Row lengths of A376081.
Cf. A001175.
Sequence in context: A144433 A274401 A228691 * A228313 A037206 A065530
KEYWORD
nonn
AUTHOR
Paolo Xausa, Sep 10 2024
STATUS
approved