|
|
A088221
|
|
Coefficient of x^n in g.f.^n is A000698(n+1).
|
|
1
|
|
|
1, 2, 3, 10, 63, 558, 6226, 82836, 1272555, 22103638, 427715118, 9118752300, 212335628550, 5362040637900, 145970732893284, 4261945511044520, 132868133756374707, 4405535689300995942, 154819142574597555670
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
FORMULA
|
|
|
MAPLE
|
c:= proc(n) option remember;
if n=1 then 1
else (n-1)*add( c(j)*c(n-j), j=1..n-1)
fi; end:
a:= proc(n) option remember;
if n<2 then n+1
else add( (4*j-1)*c(j)*c(n-j), j=1..n-1)
fi; end;
|
|
MATHEMATICA
|
c[n_]:= c[n]= If[n==1, 1, (n-1)*Sum[c[j]*c[n-j], {j, n-1}]];
a[n_]:= If[n<2, n+1, Sum[(4*j-1)*c[j]*c[n-j], {j, n-1}]];
|
|
PROG
|
(Sage)
@CachedFunction
def c(n):
if (n==1): return 1
else: return (n-1)*sum( c(j)*c(n-j) for j in (1..n-1) )
def a(n):
if (n<2): return n+1
else: return sum( (4*j-1)*c(j)*c(n-j) for j in (1..n-1) )
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|