OFFSET
1,2
MATHEMATICA
Table[Module[{m=1}, While[PowerMod[3, m, 3n+1]!=1&&PowerMod[3, m, 3n+1] != 3n, m++]; m], {n, 60}] (* Harvey P. Dale, Jul 29 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved