This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A130086 #12 Sep 21 2017 04:23:10 %S A130086 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 A130086 2520,5040,5040,5040,5040,168,168,168,5544,11088,388080,388080,388080, %U A130086 776160,30270240,30270240,30270240,720720,720720,720720,720720,1441440,1441440 %N A130086 a(n) = numerator of Product_{k=1..n} k^mu(k), where mu(k) = A008683(k). %H A130086 Michael De Vlieger, <a href="/A130086/b130086.txt">Table of n, a(n) for n = 1..4608</a> %p A130086 with(numtheory): a:=n->numer(product(k^mobius(k),k=1..n)): seq(a(n),n=1..54); # _Emeric Deutsch_, May 11 2007 %t A130086 With[{s = Array[#^MoebiusMu@ # &, 47]}, Numerator@ Table[Times @@ Take[s, n], {n, Length@ s}]] (* _Michael De Vlieger_, Sep 20 2017 *) %Y A130086 Cf. A130087, A130088, A130089. %K A130086 frac,nonn %O A130086 1,10 %A A130086 _Leroy Quet_, May 06 2007 %E A130086 More terms from _Emeric Deutsch_, May 11 2007