login
Largest primorial factor of n-th least product of primorial numbers, cf. A025487.
4

%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