|
Search: id:A052773
|
|
| |
|
| 1, 1, 5, 31, 229, 1832, 15583, 137791, 1255202, 11693697, 110905169, 1067181020, 10392861567, 102239342761, 1014484221699, 10141596951782, 102044286177390, 1032652191535027, 10503201188806574, 107313868098732336, 1100922685481490057, 11335843298568212815, 117111555943587032146, 1213575764038590524010
(list; graph; listen)
|
|
|
OFFSET
|
0,3
|
|
|
LINKS
|
INRIA Algorithms Project, Encyclopedia of Combinatorial Structures 730
|
|
FORMULA
|
G.f.: A(x) = exp(A(x)^4*x + A(x^2)^4*x^2/2 + A(x^3)^4*x^3/3 +...), A(0)=1; also, A(x)^4 = sum_{n=0..inf} A052763(n+1)x^n. - Paul D. Hanna (pauldhanna(AT)juno.com), Jul 13 2006
|
|
MAPLE
|
spec := [S, {S=Set(B), B=Prod(Z, S, S, S, S)}, unlabeled]: seq(combstruct[count](spec, size=n), n=0..20);
|
|
PROGRAM
|
(PARI) {a(n)=local(A=1+x+x*O(x^n)); if(n==0, 1, for(i=1, n, A=exp(sum(k=1, n, subst(x*A^4, x, x^k+x*O(x^n))/k))); polcoeff(A, n, x))} - Paul D. Hanna (pauldhanna(AT)juno.com), Jul 13 2006
|
|
CROSSREFS
|
Cf. A052763.
Sequence in context: A059035 A058309 A001910 this_sequence A062147 A069321 A082579
Adjacent sequences: A052770 A052771 A052772 this_sequence A052774 A052775 A052776
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
encyclopedia(AT)pommard.inria.fr, Jan 25 2000
|
|
EXTENSIONS
|
More terms from Paul D. Hanna (pauldhanna(AT)juno.com), Jul 13 2006
|
|
|
Search completed in 0.002 seconds
|
