OFFSET
1,1
MATHEMATICA
f[n_] := MultiplicativeOrder[2, n/(2^IntegerExponent[n, 2])]; f1 = f[1]; f2 = f[2]; seq = {}; Do[f3 = f[n]; If[f1 == f2 && f2 == f3, AppendTo[seq, n-2]]; f1 = f2; f2 = f3, {n, 3, 10^6}]; seq
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Apr 03 2020
STATUS
approved