A300832 - OEIS

%I #8 Mar 19 2018 22:14:54

%S 1,2,2,3,2,18,2,5,6,30,2,75,2,90,60,7,2,210,2,105,180,126,2,245,10,

%T 210,14,525,2,132300,2,11,252,66,300,1155,2,198,420,385,2,346500,2,

%U 825,2940,990,2,847,30,3234,132,1155,2,15246,420,2695,396,2310,2,6670125,2,6930,1540,13,700,128700,2,195,1980,343980,2,5005,2,390

%N a(n) = Product_{d|n} A019565(d)^[moebius(n/d) = -1].

%H Antti Karttunen, <a href="/A300832/b300832.txt">Table of n, a(n) for n = 1..8192</a>

%F a(n) = A293214(n) / (A300830(n)*A300831(n)).

%o (PARI)

%o A019565(n) = {my(j,v); factorback(Mat(vector(if(n, #n=vecextract(binary(n), "-1..1")), j, [prime(j), n[j]])~))}; \\ From A019565

%o A300832(n) = { my(m=1); fordiv(n,d,if(-1==moebius(n/d), m *= A019565(d))); m; };

%Y Cf. A008683, A008966, A019565, A293214, A300830, A300831, A300833.

%K nonn

%O 1,2

%A _Antti Karttunen_, Mar 16 2018