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 A249931 #7 Feb 07 2025 15:14:30 %S A249931 1,1,8,152,3550,92788,2597399,76156625,2308825896,71786597460, %T A249931 2276556265566,73352261863414,2394513305129959,79024386863955715, %U A249931 2632253500369515600,88379408361414983552,2987975394537672941171,101633132452812322479087,3475524159518622818586778 %N A249931 G.f. A(x) satisfies: 1+x = A(x)^3 + A(x)^5 - A(x)^7. %F A249931 G.f.: 1 + Series_Reversion(x - 8*x^2 - 24*x^3 - 30*x^4 - 20*x^5 - 7*x^6 - x^7). %e A249931 G.f.: A(x) = 1 + x + 8*x^2 + 152*x^3 + 3550*x^4 + 92788*x^5 +... %e A249931 Related expansions. %e A249931 A(x)^3 = 1 + 3*x + 27*x^2 + 505*x^3 + 11778*x^4 + 307608*x^5 +... %e A249931 A(x)^5 = 1 + 5*x + 50*x^2 + 930*x^3 + 21675*x^4 + 565901*x^5 +... %e A249931 A(x)^7 = 1 + 7*x + 77*x^2 + 1435*x^3 + 33453*x^4 + 873509*x^5 +... %e A249931 where 1+x = A(x)^3 + A(x)^5 - A(x)^7. %o A249931 (PARI) /* From 1+x = A(x)^3 + A(x)^5 - A(x)^7: */ %o A249931 {a(n)=local(A=[1, 1]); for(i=1, n, A=concat(A, 0); A[#A]=-Vec(Ser(A)^3+Ser(A)^5-Ser(A)^7)[#A]); A[n+1]} %o A249931 for(n=0, 25, print1(a(n) , ", ")) %o A249931 (PARI) /* From Series Reversion: */ %o A249931 {a(n)=local(A=1+serreverse(x - 8*x^2 - 24*x^3 - 30*x^4 - 20*x^5 - 7*x^6 - x^7 + x^2*O(x^n)));polcoeff(A,n)} %o A249931 for(n=0, 25, print1(a(n) , ", ")) %Y A249931 Cf. A249926, A249927, A249928, A249929, A249930, A249932. %K A249931 nonn %O A249931 0,3 %A A249931 _Paul D. Hanna_, Nov 27 2014