OFFSET
1,3
EXAMPLE
MAPLE
A:= 0: count:= 1: P:= {}: p:= 2:
while count < 37 do
p:= nextprime(p);
m:= NumberTheory:-MultiplicativeOrder(2, p);
if m::odd then next fi;
m:= m/2;
t:= 2^m+1;
t:= t/p^padic:-ordp(t, p);
for q in P do if t mod q = 0 then
t:= t/q^padic:-ordp(t, q);
if t = 1 then break fi;
fi od;
if t = 1 then count:= count+1; A:= A, m; fi;
P:= P union {p};
od:
A;
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Robert Israel, May 14 2026
STATUS
approved
