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 A346788 #18 Aug 09 2021 10:13:50
%S A346788 1,1,2,6,48,1440,414720,2090188800,1155790798848000,
%T A346788 226483217146419609600000,302971317675145105975227187200000000,
%U A346788 37917003542135076706761224377027811868672000000000000,45800346382799680410294841758069930049013501333211737122406400000000000000000
%N A346788 Product over all partitions lambda of n of the product of distinct parts in lambda.
%H A346788 Alois P. Heinz, <a href="/A346788/b346788.txt">Table of n, a(n) for n = 0..20</a>
%F A346788 a(n) = A230053(n) for n <= 6.
%p A346788 a:= n-> mul(i, i=map(x-> {x[]}[], combinat[partition](n))):
%p A346788 seq(a(n), n=0..12);
%t A346788 a[n_] := Times @@ Times @@@ Union /@ IntegerPartitions[n];
%t A346788 a /@ Range[0, 20] (* _Jean-François Alcover_, Aug 09 2021 *)
%o A346788 (PARI) a(n) = vecprod(apply(x->vecprod(Set(x)), partitions(n))); \\ _Michel Marcus_, Aug 04 2021
%Y A346788 Cf. A000142, A007870, A162506, A230053, A325504.
%K A346788 nonn
%O A346788 0,3
%A A346788 _Alois P. Heinz_, Aug 03 2021