%I A126340
%S A126340 1,1,2,6,28,245,2100,26502,371616,6565104,125017200,2888063640,
%T A126340 71356079520,2012272702440,60689867021784,2032123676705850,
%U A126340 72464991800160960,2806386304260520800,115406148262413677760
%N 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.
%e A126340 a(n) appears to be divisible by n for n>0:
%e A126340 a(n)/n = [1,1,2,7,49,350,3786,46452,729456,12501720,262551240,...].
%o A126340 (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}
%Y A126340 Cf. A126265.
%Y A126340 Sequence in context: A118025 A119966 A002047 this_sequence A136639 A027109
A107375
%Y A126340 Adjacent sequences: A126337 A126338 A126339 this_sequence A126341 A126342
A126343
%K A126340 nonn
%O A126340 0,3
%A A126340 Paul D. Hanna (pauldhanna(AT)juno.com), Dec 25 2006
|