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 A070863 #18 Apr 16 2025 05:25:39
%S A070863 1,1,3,12,60,360,2268,18144,152544,1471008,14963328,179559936,
%T A070863 2156963328,30197486592,426680825088,6448500066288,103658110188528,
%U A070863 1865845983393504,33623263082197152,672465261643943040,13457623759369050240,283699943666342340480,6265115909183775026880
%N A070863 Sum of numbers in n-th row of A070861.
%p A070863 b:= proc(n) option remember; `if`(n=0, {1},
%p A070863 map(x-> [x, x*n][], b(n-1)))
%p A070863 end:
%p A070863 a:= n-> add(i, i=b(n)):
%p A070863 seq(a(n), n=0..20); # _Alois P. Heinz_, Aug 01 2022
%t A070863 row[n_] := Times @@@ Subsets[Range[n]] // Flatten // Union; a[n_] := Total[row[n]]; Table[an = a[n]; Print["a(", n, ") = ", an]; an, {n, 1, 19}] (* _Jean-François Alcover_, Feb 02 2015 *)
%Y A070863 Cf. A070861, A060957.
%K A070863 nonn
%O A070863 0,3
%A A070863 _Amarnath Murthy_, May 16 2002
%E A070863 Corrected and extended by _Lior Manor_, May 26 2002
%E A070863 a(0)=1 prepended by _Alois P. Heinz_, Aug 01 2022