login
Sum of numbers in n-th row of A070861.
3

%I #14 Aug 01 2022 12:56:52

%S 1,1,3,12,60,360,2268,18144,152544,1471008,14963328,179559936,

%T 2156963328,30197486592,426680825088,6448500066288,103658110188528,

%U 1865845983393504,33623263082197152,672465261643943040,13457623759369050240,283699943666342340480,6265115909183775026880

%N Sum of numbers in n-th row of A070861.

%p b:= proc(n) option remember; `if`(n=0, {1},

%p map(x-> [x, x*n][], b(n-1)))

%p end:

%p a:= n-> add(i, i=b(n)):

%p seq(a(n), n=0..20); # _Alois P. Heinz_, Aug 01 2022

%t 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 Cf. A070861, A060957.

%K nonn

%O 0,3

%A _Amarnath Murthy_, May 16 2002

%E Corrected and extended by _Lior Manor_ May 26 2002

%E a(0)=1 prepended by _Alois P. Heinz_, Aug 01 2022