%I A118795
%S A118795 0,1,4,29,329,5172,104335,2571473,74894818,2516911731,95862252417,
%T A118795 4080739041238,192000366357981,9894168501171229,554208686184384028,
%U A118795 33527021385789228265,2178482569432714859789,151314182463701892157460
%N A118795 E.g.f.: -1 + exp(( 1 - sqrt(5 - 4*exp(x)) )/2).
%C A118795 Also equals the unsigned row sums of triangle A118793 (offset without
leading zero).
%F A118795 a(n) = (n-1)!*Sum_{k=0..n-1} abs( [x^k] (x/log(1-x-x^2))^n/(n-1-k)! )
for n>0.
%e A118795 E.g.f.: A(x) = x + 4/2*x^2 + 29/6*x^3 + 329/24*x^4 + 5172/120*x^5 +...
%o A118795 (PARI) {a(n)=local(x=X+X^2*O(X^n));n!*polcoeff(-1+exp((1-sqrt(5-4*exp(x)))/
2),n,X)} (PARI) /* As the unsigned row sums of A118793: */ {a(n)=local(x=X+X^2*O(X^n));
if(n<1,0, (n-1)!*sum(k=0,n-1,abs(polcoeff(((x/log(1-x-x^2)))^n/(n-1-k)!,
k,X))))}
%Y A118795 Cf. A118793, A118794.
%Y A118795 Sequence in context: A067146 A030019 A028853 this_sequence A099700 A137646
A000798
%Y A118795 Adjacent sequences: A118792 A118793 A118794 this_sequence A118796 A118797
A118798
%K A118795 nonn
%O A118795 0,3
%A A118795 Paul D. Hanna (pauldhanna(AT)juno.com), Apr 30 2006
|