OFFSET
1,7
MATHEMATICA
di[x_] := Apply[LCM, Divisors[x]+1] Table[GCD[2*w+1, di[1+2*w]], {w, 1, 2048}];
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Apr 25 2003
STATUS
approved