OFFSET
1,2
MATHEMATICA
a = {1}; Do[i = 1; c = 0; While[c < n, If[GCD[i, 2^n + 1] == 1, c++ ]; i++ ]; AppendTo[a, i - 1], {n, 2, 80}]; a (* Stefan Steinerberger, Dec 26 2007 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Aug 09 2007
EXTENSIONS
More terms from Stefan Steinerberger, Dec 26 2007
STATUS
approved