OFFSET
1,2
MATHEMATICA
Table[If[p==5, 0, MultiplicativeOrder[5, p^2]], {p, Prime@ Range@ 45}] (* Giovanni Resta, May 31 2018 *)
PROG
(PARI) a(n) = my(p=prime(n)); if(p==5, return(0), return(znorder(Mod(5, p^2))))
CROSSREFS
KEYWORD
nonn
AUTHOR
Felix Fröhlich, May 30 2018
STATUS
approved