A327687 Partial sums of Pisano periods (A001175).

1, 4, 12, 18, 38, 62, 78, 90, 114, 174, 184, 208, 236, 284, 324, 348, 384, 408, 426, 486, 502, 532, 580, 604, 704, 788, 860, 908, 922, 1042, 1072, 1120, 1160, 1196, 1276, 1300, 1376, 1394, 1450, 1510, 1550, 1598, 1686, 1716, 1836, 1884, 1916, 1940, 2052, 2352, 2424, 2508, 2616, 2688, 2708

Offset: 1

Author

Robert Bilinski, Sep 22 2019

Keywords

• nonn

Links

• Robert Bilinski, Table of n, a(n) for n = 1..10000
• Joseph Louis de Lagrange, Additions aux éléments d'algèbre d'Euler. Analyse indéterminée, (1774), pp. 143ff.
• J. D. Fulton and W. L. Morris, On arithmetical functions related to the Fibonacci numbers, Acta Arithmetica 16 (1969), 105-110.
• James Grime and Brady Haran, Fibonacci Mystery, Numberphile video, 2013.

Crossrefs

Cf. A001175.

Programs

Mathematica

Module[{nn=1000,fibs},fibs=Fibonacci[Range[nn]];Accumulate[Table[Length[ FindTransientRepeat[ Mod[fibs,n],2][[2]]],{n,70}]]] (* Harvey P. Dale, Jul 08 2023 *)