OFFSET
1,2
MATHEMATICA
lnm[n_]:=Module[{m=1}, While[PowerMod[8, m, 8n+1]!=1&&PowerMod[ 8, m, 8n+1] !=8n, m++]; m]; Array[lnm, 60] (* Harvey P. Dale, Jul 17 2016 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved