login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A246882 G.f. A(x) satisfies: 1-x = Sum_{n>=0} (A(x)^n + x^n)^n * (-x)^n. 1

%I

%S 1,0,-1,-1,4,10,-16,-58,139,549,-862,-4468,6470,41631,-38057,-384497,

%T 190622,3773087,-107999,-37440917,-12558347,374625122,240279936,

%U -3657434817,-3489240401,34354613614,49461991317,-310025049551,-716262462758,2811996166969,10210014807369

%N G.f. A(x) satisfies: 1-x = Sum_{n>=0} (A(x)^n + x^n)^n * (-x)^n.

%H Paul D. Hanna, <a href="/A246882/b246882.txt">Table of n, a(n) for n = 0..200</a>

%e G.f.: A(x) = 1 - x^2 - x^3 + 4*x^4 + 10*x^5 - 16*x^6 - 58*x^7 + 139*x^8 +...

%e where

%e 1-x = 1 - (A(x) + x)*x + (A(x)^2 + x^2)^2*x^2 - (A(x)^3 + x^3)^3*x^3 + (A(x)^4 + x^4)^4*x^4 - (A(x)^5 + x^5)^5*x^5 + (A(x)^6 + x^6)^6*x^6 - (A(x)^7 + x^7)^7*x^7 +-...

%o (PARI) {a(n)=local(A=[1]);for(i=1,n,A=concat(A,0);A[#A]=Vec(sum(k=0, #A, (Ser(A)^k + x^k)^k*(-x)^k))[#A+1]);A[n+1]}

%o for(n=0,30,print1(a(n),", "))

%K sign

%O 0,5

%A _Paul D. Hanna_, Sep 26 2014

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified July 29 17:41 EDT 2021. Contains 346346 sequences. (Running on oeis4.)