|
Search: id:A088716
|
|
|
| A088716 |
|
G.f. satisfies: A(x) = 1 + x*A(x)*d/dx[x*A(x)] = 1 + x*A(x)^2 + x^2*A(x)*A'(x). |
|
+0
10
|
|
| 1, 1, 3, 14, 85, 621, 5236, 49680, 521721, 5994155, 74701055, 1003125282, 14437634276, 221727608284, 3619710743580, 62605324014816, 1143782167355649, 22014467470369143, 445296254367273457, 9444925598142843970
(list; graph; listen)
|
|
|
OFFSET
|
0,3
|
|
|
FORMULA
|
a(0)=1, a(n) = sum(k=1, n, k*a(k-1)*a(n-k) ). G.f.: A(x) = serreverse(x/f(x))/x where f(x) is the g.f. of A088715.
Self-convolution is A112916, where a(n) = (n+1)/2*A112916(n-1) for n>0.
|
|
PROGRAM
|
(PARI) a(n)=if(n==0, 1, sum(k=0, n-1, (k+1)*a(k)*a(n-k-1)))
|
|
CROSSREFS
|
Cf. A112916 (A^2), A112911, A112912, A112913, A112914.
Cf. A088715.
Sequence in context: A005700 A088717 A111538 this_sequence A005189 A074520 A127715
Adjacent sequences: A088713 A088714 A088715 this_sequence A088717 A088718 A088719
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Paul D. Hanna (pauldhanna(AT)juno.com), Oct 12 2003
|
|
|
Search completed in 0.002 seconds
|
