%I #10 Nov 23 2017 12:28:36

%S 1,2,1,6,1,1,1,8,12,1,1,3,3,1,1,30,1,8,2,2,1,1,1,4,30,2,2,3,4,1,1,4,1,

%T 1,1,72,9,4,3,4,2,1,5,2,4,1,1,15,12,20,1,3,1,4,1,4,2,4,4,2,15,1,6,126,

%U 2,1,8,2,1,1,1,32,18,6,15,12,1,2,2,10,10,2,2,3,1,10,4,4,4,4,3,2,1,1,4,2,3,12,4

%N a(n) = phi(sigma(n)) / gcd(sigma(n), phi(sigma(n))).

%H Antti Karttunen, <a href="/A295315/b295315.txt">Table of n, a(n) for n = 1..16384</a>

%F a(n) = A062401(n) / A295313(n) = A062401(n) / A009195(A000203(n)).

%F a(n) = A076512(A000203(n)).

%o (PARI) a(n) = my(sn = sigma(n)); eulerphi(sn) / gcd(sn, eulerphi(sn)); \\ _Michel Marcus_, Nov 23 2017

%Y Cf. A000010, A000203, A009195, A062401, A076512, A295312, A295313, A295314.

%K nonn

%O 1,2

%A _Antti Karttunen_, Nov 22 2017