cp's OEIS Frontend

A080305 Denominator of n^mu(n), where mu is the Moebius function (A008683).

%I A080305 #9 Jun 18 2023 15:13:15
%S A080305 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 A080305 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 A080305 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 A080305 Denominator of n^mu(n), where mu is the Moebius function (A008683).
%H A080305 Antti Karttunen, <a href="/A080305/b080305.txt">Table of n, a(n) for n = 1..65537</a>
%F A080305 a(n) = if mu(n)<0 then n else 1, where mu is Moebius mu function (A008683).
%t A080305 Table[n^MoebiusMu[n],{n,100}]//Denominator (* _Harvey P. Dale_, Jun 18 2023 *)
%o A080305 (PARI) A080305(n) = denominator(n^moebius(n)); \\ _Antti Karttunen_, Aug 06 2018
%Y A080305 Cf. A008683.
%Y A080305 Numerator: A080304, A080306, A034386.
%K A080305 nonn,frac
%O A080305 1,2
%A A080305 _Reinhard Zumkeller_, Feb 13 2003