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

1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 4, 60, 60, 60, 60, 60, 60, 1260, 2520, 2520, 2520, 2520, 5040, 5040, 5040, 5040, 168, 168, 168, 5544, 11088, 388080, 388080, 388080, 776160, 30270240, 30270240, 30270240, 720720, 720720, 720720, 720720, 1441440, 1441440

Offset: 1

Author

Leroy Quet, May 06 2007

Keywords

• frac
• nonn

Links

• Michael De Vlieger, Table of n, a(n) for n = 1..4608

Crossrefs

Cf. A130087, A130088, A130089.

Programs

Maple

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

Mathematica

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

Extensions

More terms from Emeric Deutsch, May 11 2007