OFFSET
1,6
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..65537
FORMULA
a(n) = A074389(n^3).
EXAMPLE
n=10: gcd[1000,2340,400] = 20 = a(10).
MATHEMATICA
Table[Apply[GCD, {w^3, DivisorSigma[1, w^3], EulerPhi[w^3]}], {w, 1, 128}]
GCD[#, DivisorSigma[1, #], EulerPhi[#]]&/@(Range[100]^3) (* Harvey P. Dale, Nov 03 2024 *)
PROG
(PARI) A074466(n) = gcd([n^3, sigma(n^3), eulerphi(n^3)]); \\ Antti Karttunen, Sep 07 2018
(Magma) [Gcd(n^3, Gcd(SumOfDivisors(n^3), EulerPhi(n^3))): n in [1..100]]; // Vincenzo Librandi, Sep 20 2018
CROSSREFS
KEYWORD
nonn,changed
AUTHOR
Labos Elemer, Aug 23 2002
STATUS
approved