OFFSET
1,2
MAPLE
f:= proc(n) local x, r;
for x from 2 to n do
if igcd(x, n) <> 1 then next fi;
r:= numtheory:-order(x, n);
if r::even and r < n-1 then return r fi
od;
0
end proc:
R:= 1: m:= 0: count:= 0:
for k from 2 while count < 100 do
v:= f(k);
if v > m then m:= v; R:= R, v; count:= count+1 fi;
od:
R;
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert Israel, Nov 14 2024
STATUS
approved