A376082 a(n) is the period of the Leonardo numbers (A001595) modulo n.

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

Author

Paolo Xausa, Sep 10 2024

Keywords

• nonn

Comments

See A376081 for more information.

Links

• Paolo Xausa, Table of n, a(n) for n = 1..10000

Crossrefs

Row lengths of A376081.

Cf. A001175.

Programs

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]

Formula

Apparently, a(2*k) = A001175(k), for k >= 1.