This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A024923 #13 Jun 27 2025 16:26:38
%S A024923 1,2,6,24,120,840,6720,60480,665280,8648640,138378240,2352430080,
%T A024923 44696171520,1028011944960,25700298624000,693908062848000,
%U A024923 20123333822592000,623823348500352000,19962347152011264000,738606844624416768000,30282880629601087488000,1302163867072846761984000
%N A024923 Partial products of the sequence of prime powers (A000961).
%H A024923 Amiram Eldar, <a href="/A024923/b024923.txt">Table of n, a(n) for n = 1..361</a>
%t A024923 FoldList[Times, 1, Select[Range[50], PrimePowerQ]] (* _Amiram Eldar_, Jun 27 2025 *)
%o A024923 (PARI) ispp1(n) = isprimepower(n) || (n==1); \\ A000961
%o A024923 lista(nn) = {my(s=1); for (n=1, nn, if (ispp1(n), s*= n; print1(s, ", ")););} \\ _Michel Marcus_, Mar 26 2020
%Y A024923 Cf. A000961, A024918.
%Y A024923 Subsequence of A025487.
%Y A024923 The distinct terms in A308819.
%Y A024923 Indices of records in A385378.
%K A024923 nonn
%O A024923 1,2
%A A024923 Den Roussel (DenRoussel(AT)webtv.net)
%E A024923 Offset 1 and more terms from _Michel Marcus_, Mar 26 2020