|
%I #9 Jun 18 2023 15:13:15
%S 1,2,3,1,5,1,7,1,1,1,11,1,13,1,1,1,17,1,19,1,1,1,23,1,1,1,1,1,29,30,
%T 31,1,1,1,1,1,37,1,1,1,41,42,43,1,1,1,47,1,1,1,1,1,53,1,1,1,1,1,59,1,
%U 61,1,1,1,1,66,67,1,1,70,71,1,73,1,1,1,1,78,79,1,1,1,83,1,1,1,1,1,89,1,1,1,1
%N Denominator of n^mu(n), where mu is the Moebius function (A008683).
%H Antti Karttunen, <a href="/A080305/b080305.txt">Table of n, a(n) for n = 1..65537</a>
%F a(n) = if mu(n)<0 then n else 1, where mu is Moebius mu function (A008683).
%t Table[n^MoebiusMu[n],{n,100}]//Denominator (* _Harvey P. Dale_, Jun 18 2023 *)
%o (PARI) A080305(n) = denominator(n^moebius(n)); \\ _Antti Karttunen_, Aug 06 2018
%Y Cf. A008683.
%Y Numerator: A080304, A080306, A034386.
%K nonn,frac
%O 1,2
%A _Reinhard Zumkeller_, Feb 13 2003
|
