OFFSET
1,1
MATHEMATICA
t = Table[0, {98}]; k = 1; While[k < 10000000, a = PowerMod[1000, k, k]; If[a < 99 && t[[a]] == 0, t[[a]] = k; Print[{a, k}]]; k++ ]; t
lk[n_]:=Module[{k=1}, While[PowerMod[1000, k, k]!=n, k++]; k]; Array[lk, 60] (* Harvey P. Dale, Jul 21 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Alexander Adamchuk, May 10 2010
STATUS
approved