|
%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
|
