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

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, 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, 210, 6, 30, 6, 210, 6, 30, 30, 2, 30, 6, 2310, 210, 6, 30, 30, 6

Offset

1,2

Links

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Formula

a(n) = A007947(A025487(n)) = A002110(A061394(n)).

Mathematica

(* First, load program f at A025487 *)
Map[Product[Prime[i], {i, PrimeNu[#]}] &, Union@ Flatten@ f[6]] (* Michael De Vlieger, Jun 24 2024 *)

Prog

(Haskell)
a247451 n = a247451_list !! (n-1)
a247451_list = map a007947 a025487_list

Crossrefs

Cf. A007947, A025487, A002110, A061394.

Sequence in context: A121699 A080404 A378202 * A167268 A278162 A187223

Adjacent sequences: A247448 A247449 A247450 * A247452 A247453 A247454

Keyword

nonn

Author

Reinhard Zumkeller, Sep 17 2014

Status

approved