login
a(n) = n / A295310(n) = n / gcd(n, phi(sigma(n))).
4

%I #9 Nov 23 2017 12:28:40

%S 1,1,3,2,5,3,7,1,3,5,11,1,13,7,15,8,17,3,19,5,21,11,23,3,5,13,27,7,29,

%T 5,31,8,33,17,35,1,37,19,13,5,41,21,43,11,15,23,47,4,49,5,17,26,53,27,

%U 55,7,57,29,59,5,61,31,21,32,65,11,67,17,69,35,71,3,73,37,5,19,77,13,79,4,81,41,83,7,85,43,87,11,89,5

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

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

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

%Y Cf. A000010, A000203, A062401, A295301, A295310, A295312, A295314.

%K nonn

%O 1,3

%A _Antti Karttunen_, Nov 22 2017