OFFSET
1,6
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..65537
FORMULA
MATHEMATICA
Table[GCD[n, DivisorSigma[0, n], EulerPhi[n]], {n, 110}] (* Harvey P. Dale, Jul 30 2019 *)
PROG
(PARI) A318459(n) = gcd([n, numdiv(n), eulerphi(n)]);
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved