OFFSET
1,2
LINKS
T. D. Noe, Table of n, a(n) for n = 1..1000
Alexandre Zalesski, Unisingular subgroups of symplectic group Sp_2n(2) for 2n < 250, arXiv:2401.16075 [math.GR], 2024. See p. 52.
MATHEMATICA
nn = 5; Table[If[Mod[nn, p] == 0, 0, MultiplicativeOrder[nn, p]], {p, Prime[Range[100]]}]
PROG
(GAP) A000040:=Filtered([1..350], IsPrime);;
(PARI) a(n, {base=5}) = my(p=prime(n)); if(base%p, znorder(Mod(base, p)), 0) \\ Jianing Song, May 13 2024
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
T. D. Noe, Apr 11 2012
STATUS
approved