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 A101976 #10 Feb 16 2025 08:32:55
%S A101976 1,2,4,8,15,28,49,83,134,209,317,473,687,987,1403,1972,2732,3752,5096,
%T A101976 6852,9144,12113,15919,20802,27012,34860,44755,57136,72592,91802,
%U A101976 115567,144916,180963
%N A101976 Number of products of factorials not exceeding n!.
%C A101976 a(n) is the position of n! in A001013 (Jordan-Polya numbers: products of factorials). a(n) > A101977(n) for n > 2 and a(n) > A101978(n) for n > 3.
%H A101976 <a href="/index/Fa#factorial">Index entries for sequences related to factorial numbers.</a>
%H A101976 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/FactorialProducts.html">Factorial Products</a>
%e A101976 a(4) = 8 because 8 products of factorials do not exceed 4!, namely, 1, 2, 4, 6, 8, 12, 16 and 24.
%t A101976 m[n_]:=(For[p=0; a=f=Table[k!, {k, 1, n}], p=!=a, p=a;a=Select[Union@@Outer[Times, f, a], #<=n!&]];a);Table[Length[m[n]], {n, 20}]
%Y A101976 Cf. A000142, A001013, A101977, A101978.
%K A101976 nonn
%O A101976 1,2
%A A101976 _Jonathan Sondow_, Dec 22 2004
%E A101976 a(21)-a(33) from _Donovan Johnson_, May 30 2012