|
Search: id:A129833
|
|
|
| A129833 |
|
a(n) = sum_{k = 0..n } binomial(n + 1, k + 1)*binomial(n, k)*k!. |
|
+0
1
|
|
| 1, 3, 11, 52, 309, 2221, 18703, 180216, 1952457, 23466223, 309577971, 4444537868, 68948023741, 1148825560377, 20455144724407, 387479309532976, 7778881684953873, 164942847995071611, 3682885668837002587
(list; graph; listen)
|
|
|
OFFSET
|
0,2
|
|
|
COMMENT
|
Suggested by A052852 (stalactic classes of endofunctions) with n replaced by n+1 in the binomial coefficients.
A052852 is: g[n_] = Sum[Binomial[n - 1, k - 1]*Binomial[n, k]*k!, {k, 0, n}] A straight shift function is: f[n_]=Sum[Binomial[n + 1, k + 1]*Binomial[n, k]*(k + 1)!, {k, 0, n}]
|
|
REFERENCES
|
F. Hivert, J.-C. Novelli and J.-Y. Thibon, Commutative combinatorial Hopf algebras.
|
|
MATHEMATICA
|
f[n_] = Sum[Binomial[n + 1, k + 1]*Binomial[n, k]*k!, {k, 0, n}]; Table[f[n], {n, 1, 20}]
|
|
CROSSREFS
|
Cf. A052852.
Sequence in context: A014510 A058799 A054362 this_sequence A107958 A053557 A039302
Adjacent sequences: A129830 A129831 A129832 this_sequence A129834 A129835 A129836
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), May 21 2007
|
|
EXTENSIONS
|
Edited by njas, Sep 30 2007
|
|
|
Search completed in 0.002 seconds
|
