login
A024923
Partial products of the sequence of prime powers (A000961).
3
1, 2, 6, 24, 120, 840, 6720, 60480, 665280, 8648640, 138378240, 2352430080, 44696171520, 1028011944960, 25700298624000, 693908062848000, 20123333822592000, 623823348500352000, 19962347152011264000, 738606844624416768000, 30282880629601087488000, 1302163867072846761984000
OFFSET
1,2
PROG
(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
CROSSREFS
Sequence in context: A351984 A365977 A079854 * A334395 A375269 A347064
KEYWORD
nonn
AUTHOR
Den Roussel (DenRoussel(AT)webtv.net)
EXTENSIONS
Offset 1 and more terms from Michel Marcus, Mar 26 2020
STATUS
approved