|
|
A113662
|
|
Self-convolution of A000699.
|
|
8
|
|
|
1, 2, 9, 62, 566, 6372, 84837, 1300214, 22511322, 434226300, 9231983850, 214481625516, 5406323440492, 146963638311880, 4286068830850797, 133501081493969574, 4423404073559930162, 155359770700317171084
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
FORMULA
|
G.f. satisfies: A(x) = (1 + x*d/dx[x*A(x)] )^2.
|
|
EXAMPLE
|
G.f. = 1 + 2*x + 9*x^2 + 62*x^3 + 566*x^4 + 6372*x^5 + 84837*x^6 + 1300214*x^7 + ...
|
|
PROG
|
(PARI) {a(n)=local(A=1+x*O(x^n)); for(i=1, n, A=(1+x*deriv(x*A))^2); polcoeff(A, n, x)}
(PARI)
my(a = vector(N)); a[1] = 1;
for (n=2, N, a[n] = sum(k=1, n-1, (2*k-1)*a[k]*a[n-k])); a;
};
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|