This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A134531 #27 Jun 18 2022 10:28:54 %S A134531 0,1,-1,5,-79,3377,-362431,93473345,-56272471039,77442176448257, %T A134531 -239804482525402111,1650172344732021412865, %U A134531 -24981899010711376986398719,825164608171793476724052668417,-59053816996641612758331731690504191,9102696765174239045811746247171452452865 %N A134531 G.f.: Sum_{n>=0} a(n)*x^n/(n!*2^(n*(n-1)/2)) = log( Sum_{n>=0} x^n/(n!*2^(n*(n-1)/2)) ). %H A134531 Seiichi Manyama, <a href="/A134531/b134531.txt">Table of n, a(n) for n = 0..77</a> %H A134531 Kimmo Berg, <a href="https://doi.org/10.1007/s10479-013-1334-3">Complexity of solution structures in nonlinear pricing</a>, Ann. Oper. Res. 206, 23-37 (2013). %H A134531 Sergei Chmutov, Maxim Kazarian and Sergey Lando, <a href="https://arxiv.org/abs/1803.09800">Polynomial graph invariants and the KP hierarchy</a>, arXiv:1803.09800 [math.CO], 2018. %F A134531 Equals column 0 of triangle A134530, which is the matrix log of triangle A111636, where A111636(n,k) = (2^k)^(n-k)*C(n,k). %F A134531 From _Peter Bala_, Apr 01 2013: (Start) %F A134531 Let E(x) = Sum_{n >= 0} x^n/(n!*2^C(n,2)). Then a generating function for this sequence (but with a different offset) is E(x)/E(2*x) = Sum_{n >= 0} a(n-1)*x^n/(n!*2^C(n,2)) = 1 - x + 5*x^2/(2!*2) - 79*x^3/(3!*2^3) + 3377*x^4/(4!*2^6) - .... %F A134531 Recurrence equation: %F A134531 a(n) = 1 - Sum_{k = 1..n-1} 2^(k*(n-k))*C(n-1,k-1)*a(k) with a(1) = 1. (End) %F A134531 a(n) = (-1)^(n-1)*A003025(n)/n. - _Andrew Howroyd_, Jan 07 2022 %e A134531 Let g.f. G(x) = Sum_{n>=0} a(n)*x^n/[ n! * 2^(n*(n-1)/2) ] %e A134531 then exp(G(x)) = Sum_{n>=0} x^n/[ n! * 2^(n*(n-1)/2) ]; %e A134531 G.f.: G(x) = x - x^2/4 + 5x^3/48 - 79x^4/1536 + 3377x^5/122880 + ... %e A134531 exp(G(x)) = 1 + x + x^2/4 + x^3/48 + x^4/1536 + x^5/122880 + ... %t A134531 a[0] = 0; %t A134531 a[n_] := a[n] = 1 - Sum[2^(k(n-k)) Binomial[n-1, k-1] a[k], {k, 1, n-1}]; %t A134531 Table[a[n], {n, 0, 15}] (* _Jean-François Alcover_, Jul 26 2018 *) %o A134531 (PARI) {a(n)=n!*2^(n*(n-1)/2)*polcoeff(log(sum(k=0,n,x^k/(k!*2^(k*(k-1)/2)))+x*O(x^n)),n)} %Y A134531 Cf. related triangles: A134530, A111636. %Y A134531 Cf. A003025, A011266, A118197 (variant). %K A134531 sign,easy %O A134531 0,4 %A A134531 _Paul D. Hanna_, Oct 30 2007