A376081 -id:A376081 - cp's OEIS frontend

A376083 Row sums of A376081.

0, 1, 7, 5, 40, 22, 47, 18, 93, 100, 45, 132, 180, 110, 275, 84, 304, 210, 134, 580, 131, 78, 527, 240, 1200, 388, 927, 652, 160, 590, 373, 328, 587, 644, 1355, 444, 1404, 286, 1075, 1140, 821, 278, 1847, 542, 2625, 1102, 767, 504, 2681, 2500, 1815, 2204, 2860

Offset: 1

Paolo Xausa, Sep 10 2024

nonn

See A376081 for more information.

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

Cf. A214300, A376081.

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]

a(n) = Sum_{k = 0..A376082(n)-1} A376081(n,k).

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

Original entry on oeis.org

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

Paolo Xausa, Sep 10 2024

nonn

See A376081 for more information.

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

Row lengths of A376081.

Cf. A001175.

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]

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

cp's OEIS Frontend

A376083 Row sums of A376081.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

Formula