cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A319680 a(n) = Product_{d|n} A019565(d)^[moebius(n/d) = +1].

This page as a plain text file.
%I A319680 #6 Sep 29 2018 18:42:08
%S A319680 2,3,6,5,10,30,30,7,14,42,42,105,70,210,420,11,22,198,66,165,220,330,
%T A319680 330,385,154,462,462,1155,770,207900,2310,13,52,78,156,975,130,390,
%U A319680 780,455,182,147420,546,1365,5460,2730,2730,1001,286,4290,1716,2145,1430,30030,8580,5005,4004,6006,6006,7882875,10010,30030,180180,17,68
%N A319680 a(n) = Product_{d|n} A019565(d)^[moebius(n/d) = +1].
%H A319680 Antti Karttunen, <a href="/A319680/b319680.txt">Table of n, a(n) for n = 1..8192</a>
%F A319680 a(n) = A019565(n) * A300831(n).
%o A319680 (PARI)
%o A319680 A019565(n) = {my(j,v); factorback(Mat(vector(if(n, #n=vecextract(binary(n), "-1..1")), j, [prime(j), n[j]])~))}; \\ From A019565
%o A319680 A319680(n) = { my(m=1); fordiv(n,d,if((1==moebius(n/d)), m *= A019565(d))); m; };
%Y A319680 Cf. A019565, A300831, A319681 (rgs-transform).
%K A319680 nonn
%O A319680 1,1
%A A319680 _Antti Karttunen_, Sep 29 2018