A024923 Partial products of the sequence of prime powers (A000961).

1, 2, 6, 24, 120, 840, 6720, 60480, 665280, 8648640, 138378240, 2352430080, 44696171520, 1028011944960, 25700298624000, 693908062848000, 20123333822592000, 623823348500352000, 19962347152011264000, 738606844624416768000, 30282880629601087488000, 1302163867072846761984000

Offset: 1

Author

Den Roussel (DenRoussel(AT)webtv.net)

Keywords

• nonn

Links

• Amiram Eldar, Table of n, a(n) for n = 1..361

Crossrefs

Cf. A000961, A024918.

Subsequence of A025487.

The distinct terms in A308819.

Indices of records in A385378.

Programs

Mathematica

FoldList[Times, 1, Select[Range[50], PrimePowerQ]] (* Amiram Eldar, Jun 27 2025 *)

PARI

ispp1(n) = isprimepower(n) || (n==1); \\ A000961
lista(nn) = {my(s=1); for (n=1, nn, if (ispp1(n), s*= n; print1(s, ", ")););} \\ Michel Marcus, Mar 26 2020

Extensions

Offset 1 and more terms from Michel Marcus, Mar 26 2020