|
Search: id:A126340
|
|
|
| A126340 |
|
Largest coefficient of q in { [x^n] W(x,q) } where W(x,q) = exp( q*x*W(q*x,q) ); largest term in rows of triangle A126265. |
|
+0
1
|
|
| 1, 1, 2, 6, 28, 245, 2100, 26502, 371616, 6565104, 125017200, 2888063640, 71356079520, 2012272702440, 60689867021784, 2032123676705850, 72464991800160960, 2806386304260520800, 115406148262413677760
(list; graph; listen)
|
|
|
OFFSET
|
0,3
|
|
|
EXAMPLE
|
a(n) appears to be divisible by n for n>0:
a(n)/n = [1,1,2,7,49,350,3786,46452,729456,12501720,262551240,...].
|
|
PROGRAM
|
(PARI) {a(n)=local(W=1+x, V, H); for(i=0, n, W=exp(subst(x*W, x, q*x+x*O(x^n)))); V=Vec(Vec(W)[n+1]*n!+O(q^(n*(n+1)/2+1))); H=0; for(k=1, #V, if(V[k]>H, H=V[k])); H}
|
|
CROSSREFS
|
Cf. A126265.
Sequence in context: A118025 A119966 A002047 this_sequence A136639 A027109 A107375
Adjacent sequences: A126337 A126338 A126339 this_sequence A126341 A126342 A126343
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Paul D. Hanna (pauldhanna(AT)juno.com), Dec 25 2006
|
|
|
Search completed in 0.002 seconds
|
