A331311 - OEIS

%I #7 Jan 21 2020 18:22:49

%S 1,1,1,1,1,1,1,1,3,1,1,2,1,1,1,1,1,3,1,2,1,1,1,2,1,1,3,2,1,1,1,1,1,1,

%T 1,1,1,1,1,2,1,1,1,2,3,1,1,2,1,1,1,2,1,3,1,2,1,1,1,1,1,1,3,1,1,1,1,2,

%U 1,1,1,1,1,1,1,2,1,1,1,8,1,1,1,1,1,1,1,2,1,3,1,2,1,1,1,2,1,1,3,1,1,1,1,2,1

%N a(n) = A331287(n) / A331310(n).

%H Antti Karttunen, <a href="/A331311/b331311.txt">Table of n, a(n) for n = 1..65537</a>

%F a(n) = A331287(n) / A331310(n) = gcd(n, A225546(n)) / gcd(n, A293442(n)).

%o (PARI) A331311(n) = (A331287(n)/A331310(n));

%Y Cf. A225546, A293442, A331287, A331310, A331312.

%K nonn

%O 1,9

%A _Antti Karttunen_, Jan 21 2020