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 A305331 #7 May 31 2018 03:53:11 %S A305331 1,6,0,42,55,52,272,171,506,406,93,1332,820,1806,2162,2756,1711,1830, %T A305331 1474,355,5256,3081,6806,3916,9312,2525,10506,11342,2943,12656,5334, %U A305331 8515,18632,9591,5513,11325,24492,8802,27722,29756,15931,2715,3629,37056,38612 %N A305331 Multiplicative order of 5 (mod p^2), where p = prime(n), or 0 if 5 and p are not coprime. %t A305331 Table[If[p==5, 0, MultiplicativeOrder[5, p^2]], {p, Prime@ Range@ 45}] (* _Giovanni Resta_, May 31 2018 *) %o A305331 (PARI) a(n) = my(p=prime(n)); if(p==5, return(0), return(znorder(Mod(5, p^2)))) %Y A305331 Cf. A211241, A305332, A305333. %K A305331 nonn %O A305331 1,2 %A A305331 _Felix Fröhlich_, May 30 2018