OFFSET
1,2
LINKS
David A. Corneth, Table of n, a(n) for n = 1..1259
MATHEMATICA
Table[GCD[(n+2)!, n^n], {n, 40}] (* Harvey P. Dale, Mar 25 2018 *)
PROG
(PARI) j=[]; for(n=1, 75, j=concat(j, gcd((n+2)!, n^n))); j
(PARI) val(n, p) = my(r=0); while(n, r+=n\=p); r
a(n) = my(f = factor(n)[, 1]~); prod(i=1, #f, f[i] ^ min(n, val(n + 2, f[i]))) \\ David A. Corneth, Mar 25 2018
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Jason Earls, Jul 18 2001
STATUS
approved