A132164 Row sums of triangle A134141 (S1p(7)).

1, 1, 8, 78, 918, 12846, 209616, 3909228, 81859548, 1897344828, 48135826656, 1325008302696, 39292978029768, 1247949491330088, 42236558731574208, 1516738194700667856, 57573649342673292816, 2302425590703685075728, 96720470167595138898048

Offset

0,3

Links

Alois P. Heinz, Table of n, a(n) for n = 0..409

Formula

a(n)= sum(A134141(n,m),m=1..n),n>=1.

E.g.f.: exp((1-(1-x)^6)/(6*(1-x)^6)). Cf. e.g.f. first column of A134141.

Maple

a:= proc(n) option remember; `if`(n=0, 1, add(
      binomial(n-1, j-1)*(j+5)!/6!*a(n-j), j=1..n))
    end:
seq(a(n), n=0..25);  # Alois P. Heinz, Aug 01 2017

Mathematica

a[n_]:=a[n]=If[n==0, 1, Sum[Binomial[n - 1, j - 1] (j + 5)!/6! a[n - j], {j, n}]]; Table[a[n], {n, 0, 25}] (* Indranil Ghosh, Aug 02 2017, after Maple code *)

Crossrefs

Cf. A132165 (alternating row sum of A134141).

Sequence in context: A199758 A111533 A218499 * A058480 A000435 A052698

Adjacent sequences: A132161 A132162 A132163 * A132165 A132166 A132167

Keyword

nonn,easy

Author

Wolfdieter Lang, Oct 12 2007

Extensions

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

Status

approved