A070863 Sum of numbers in n-th row of A070861.

1, 1, 3, 12, 60, 360, 2268, 18144, 152544, 1471008, 14963328, 179559936, 2156963328, 30197486592, 426680825088, 6448500066288, 103658110188528, 1865845983393504, 33623263082197152, 672465261643943040, 13457623759369050240, 283699943666342340480, 6265115909183775026880

Offset

0,3

Links

Table of n, a(n) for n=0..22.

Maple

b:= proc(n) option remember; `if`(n=0, {1},
      map(x-> [x, x*n][], b(n-1)))
    end:
a:= n-> add(i, i=b(n)):
seq(a(n), n=0..20);  # Alois P. Heinz, Aug 01 2022

Mathematica

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 *)

Crossrefs

Cf. A070861, A060957.

Sequence in context: A370652 A000258 A326242 * A180707 A062569 A089057

Adjacent sequences: A070860 A070861 A070862 * A070864 A070865 A070866

Keyword

nonn

Author

Amarnath Murthy, May 16 2002

Extensions

Corrected and extended by Lior Manor May 26 2002

a(0)=1 prepended by Alois P. Heinz, Aug 01 2022

Status

approved