OFFSET
1,2
MATHEMATICA
With[{s = Table[GCD[(n + 2)!, n^n], {n, 1700}]}, Map[FirstPosition[s, #][[1]] &, Union@ FoldList[Max, s]]] (* Michael De Vlieger, Mar 26 2018 *)
PROG
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
David A. Corneth, Mar 25 2018
STATUS
approved