|
|
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
MATHEMATICA
|
nn = 2^16; j = k = r = 1; {1}~Join~Reap[Do[m = # + (j + k)/# &@ GCD[j, k]; If[# > r, r = #; Sow[r]] &[GCD[k, m]]; j = k; k = m, {n, 3, nn}]][[-1, -1]] (* Michael De Vlieger, Sep 03 2022 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|