%I #8 Aug 06 2018 22:26:46
%S 1,1,1,1,1,6,1,1,1,10,1,1,1,14,15,1,1,1,1,1,21,22,1,1,1,26,1,1,1,1,1,
%T 1,33,34,35,1,1,38,39,1,1,1,1,1,1,46,1,1,1,1,51,1,1,1,55,1,57,58,1,1,
%U 1,62,1,1,65,1,1,1,69,1,1,1,1,74,1,1,77,1,1,1,1,82,1,1,85,86,87,1,1,1,91,1
%N Numerator of n^mu(n), where mu is the Moebius function (A008683).
%H Antti Karttunen, <a href="/A080304/b080304.txt">Table of n, a(n) for n = 1..65537</a>
%F a(n) = if mu(n)>0 then n else 1.
%o (PARI) A080304(n) = numerator(n^moebius(n)); \\ _Antti Karttunen_, Aug 06 2018
%Y Denominator: A080305. Cf. A080306, A080326, A166142.
%K nonn,frac
%O 1,6
%A _Reinhard Zumkeller_, Feb 13 2003