A130086 - OEIS

%I #12 Sep 21 2017 04:23:10

%S 1,1,1,1,1,1,1,1,1,2,2,2,2,4,60,60,60,60,60,60,1260,2520,2520,2520,

%T 2520,5040,5040,5040,5040,168,168,168,5544,11088,388080,388080,388080,

%U 776160,30270240,30270240,30270240,720720,720720,720720,720720,1441440,1441440

%N a(n) = numerator of Product_{k=1..n} k^mu(k), where mu(k) = A008683(k).

%H Michael De Vlieger, <a href="/A130086/b130086.txt">Table of n, a(n) for n = 1..4608</a>

%p with(numtheory): a:=n->numer(product(k^mobius(k),k=1..n)): seq(a(n),n=1..54); # _Emeric Deutsch_, May 11 2007

%t With[{s = Array[#^MoebiusMu@ # &, 47]}, Numerator@ Table[Times @@ Take[s, n], {n, Length@ s}]] (* _Michael De Vlieger_, Sep 20 2017 *)

%Y Cf. A130087, A130088, A130089.

%K frac,nonn

%O 1,10

%A _Leroy Quet_, May 06 2007

%E More terms from _Emeric Deutsch_, May 11 2007