OFFSET
1,2
MATHEMATICA
Replace[Table[Reduce[n*x==1, x, Modulus->Prime[n]], {n, 1000}], Equal[x, p_]->p, {1}] (* Ivan N. Ianakiev, May 31 2016 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Ray Chandler, Jan 01 2004
STATUS
approved