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,10

Links

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

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 *)

Crossrefs

Cf. A130087, A130088, A130089.

Sequence in context: A248763 A233585 A103512 * A337228 A341444 A084731

Adjacent sequences: A130083 A130084 A130085 * A130087 A130088 A130089

Keyword

frac,nonn

Author

Leroy Quet, May 06 2007

Extensions

More terms from Emeric Deutsch, May 11 2007

Status

approved