|
|
A010750
|
|
Shifts 6 places right under inverse binomial transform.
|
|
3
|
|
|
1, 1, 1, 1, 1, 1, 2, 9, 38, 131, 387, 1025, 2512, 5834, 13152, 29805, 71858, 197325, 635938, 2311865, 8867078, 34201676, 129669923, 479650565, 1731405819, 6124746296, 21382533684, 74413732788, 261584276096, 943601869926, 3547521313455, 14045005473985
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,7
|
|
LINKS
|
M. Bernstein and N. J. A. Sloane, Some canonical sequences of integers, Linear Alg. Applications, 226-228 (1995), 57-72; erratum 320 (2000), 210. [Link to Lin. Alg. Applic. version together with omitted figures]
|
|
MAPLE
|
T:= proc(n, k) option remember; `if`(n<k, `if`(n=0, 1, 0), add(binomial(n-k, j) *T(j, k), j=0..n-k)) end: a:= n-> T(n+6, 6): seq(a(n), n=0..30); # Alois P. Heinz, Sep 05 2008
|
|
MATHEMATICA
|
T[n_, k_] := T[n, k] = If[n < k, If[n == 0, 1, 0], Sum[Binomial[n-k, j]*T[j, k], {j, 0, n-k}]]; a[n_] := T[n+6, 6]; Table[a[n], {n, 0, 31}] (* Jean-François Alcover, Apr 17 2014, after Alois P. Heinz *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,eigen
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|