This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A175289 #10 Feb 25 2023 08:48:58
%S A175289 1,1,3,1,24,3,48,1,9,24,10,3,12,48,24,1,144,9,180,24,48,10,22,3,120,
%T A175289 12,27,48,840,24,320,1,30,144,48,9,36,180,12,24,280,48,308,10,72,22,
%U A175289 46,3,336,120,144,12,936,27,120,48,180,840,29,24,60,320,144,1,24,30,1122,144
%N A175289 Pisano period of A002605 modulo n.
%C A175289 a(79)=6240. [_John W. Layman_, Aug 10 2010]
%H A175289 Michael De Vlieger, <a href="/A175289/b175289.txt">Table of n, a(n) for n = 1..200</a>
%e A175289 Reading 0, 1, 2, 6, 16, 44, 120, 328, 896, 2448,.. modulo 12 gives 0, 1, 2, 6, 4, 8, 0, 4, 8, 0, 4, 8 ,.. with period length a(n=12)= 3.
%t A175289 a={1};For[n=2,n<=80,n++,{x={{0,1}}; t={1,1}; While[ !MemberQ[x,t], {xl = x[[ -1]]; AppendTo[x,t]; t={Mod[2*(t[[1]]+xl[[1]]),n], Mod[2*(t[[2]] + xl[[2]]),n]};}]; p = Flatten[Position[x,t]][[1]]; AppendTo[a, Length[x] - p+1];}]; Print[a]; (* _John W. Layman_, Aug 10 2010 *)
%Y A175289 Cf. A001175, A046738, A175181, A175182, A175183, A175184, A175185, A175286.
%K A175289 nonn
%O A175289 1,3
%A A175289 _R. J. Mathar_, Mar 24 2010
%E A175289 Terms beyond a(28)=48 from _John W. Layman_, Aug 10 2010