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 A247451 #12 Jun 25 2024 08:33:02 %S A247451 1,2,2,6,2,6,2,6,30,2,6,6,30,2,6,6,30,2,6,30,6,210,6,30,2,6,30,6,210, %T A247451 6,30,2,6,30,6,210,6,30,30,2,30,6,210,6,30,6,210,6,30,30,2,30,6,2310, %U A247451 210,6,30,6,210,6,30,30,2,30,6,2310,210,6,30,30,6 %N A247451 Largest primorial factor of n-th least product of primorial numbers, cf. A025487. %H A247451 Reinhard Zumkeller, <a href="/A247451/b247451.txt">Table of n, a(n) for n = 1..10000</a> %F A247451 a(n) = A007947(A025487(n)) = A002110(A061394(n)). %t A247451 (* First, load program f at A025487 *) %t A247451 Map[Product[Prime[i], {i, PrimeNu[#]}] &, Union@ Flatten@ f[6]] (* _Michael De Vlieger_, Jun 24 2024 *) %o A247451 (Haskell) %o A247451 a247451 n = a247451_list !! (n-1) %o A247451 a247451_list = map a007947 a025487_list %Y A247451 Cf. A007947, A025487, A002110, A061394. %K A247451 nonn %O A247451 1,2 %A A247451 _Reinhard Zumkeller_, Sep 17 2014