login
a(n) = denominator(sigma(n)*phi(n)/n^2).
2

%I #10 Jul 21 2025 08:56:57

%S 1,4,9,8,25,3,49,16,27,25,121,9,169,49,75,32,289,18,361,25,147,121,

%T 529,6,125,169,81,7,841,25,961,64,363,289,1225,108,1369,361,507,10,

%U 1681,49,1849,121,225,529,2209,36,343,125,289,169,2809,27,605,49,361,841,3481,75

%N a(n) = denominator(sigma(n)*phi(n)/n^2).

%C A386401(n)/a(n) = sigma(n)*phi(n)/n^2 is a multiplicative function since it is the product of three multiplicative functions.

%D James J. Tattersall, Elementary Number Theory in Nine Chapters, Cambridge University Press, 1999, Exercise 5.3.21 on page 169.

%H Amiram Eldar, <a href="/A386402/b386402.txt">Table of n, a(n) for n = 1..10000</a>

%t a[n_]:=Denominator[DivisorSigma[1,n]EulerPhi[n]/n^2]; Array[a,60]

%o (PARI) a(n) = {my(f = factor(n)); denominator(sigma(f) * eulerphi(f) / n^2);} \\ _Amiram Eldar_, Jul 21 2025

%Y Cf. A000010, A000203, A000290.

%Y Cf. A386401 (numerators).

%K nonn,easy,frac

%O 1,2

%A _Stefano Spezia_, Jul 20 2025