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