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

%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