A074466 a(n) = gcd(n^3, sigma(n^3), phi(n^3)).

1, 1, 1, 1, 1, 24, 1, 1, 1, 20, 1, 8, 1, 8, 15, 1, 1, 3, 1, 4, 1, 8, 1, 24, 1, 4, 1, 16, 1, 1800, 1, 1, 3, 4, 25, 1, 1, 8, 1, 4, 1, 24, 1, 8, 3, 8, 1, 8, 1, 5, 9, 4, 1, 12, 1, 16, 1, 4, 1, 480, 1, 8, 1, 1, 65, 72, 1, 4, 3, 200, 1, 3, 1, 4, 5, 8, 1, 24, 1, 4, 1, 4, 1, 64, 5, 8, 3, 88, 1, 180, 7, 16, 1

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}]

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

Cf. A053191, A074389, A074465, A175926.

Sequence in context: A040582 A102914 A040583 * A040579 A040580 A040578

Adjacent sequences: A074463 A074464 A074465 * A074467 A074468 A074469

Keyword

nonn

Author

Labos Elemer, Aug 23 2002

Status

approved