OFFSET
2,1
COMMENTS
All terms are odd.
Note that a(n) <= 2^n - 1.
If p is prime, then a(p) = 2^p - 1.
MATHEMATICA
a[n_] := Module[{k = 3, t = 2^n - 2}, While[PowerMod[k, n, t] != 1, k+=2]; k]; Array[a, 20, 2] (* Amiram Eldar, Jan 14 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Thomas Ordowski, Jan 14 2021
EXTENSIONS
More terms from Amiram Eldar, Jan 14 2021
STATUS
approved