The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A088713 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A088713

G.f. A(x) satisfies A(x/A(x)) = 1/(1-x).
(history; published version)

#19 by Susanna Cuyler at Mon Jan 15 08:52:24 EST 2018

STATUS

proposed

approved

#18 by Michel Marcus at Mon Jan 15 08:18:39 EST 2018

STATUS

editing

proposed

#17 by Michel Marcus at Mon Jan 15 08:18:36 EST 2018

FORMULA

Contribution from _From _Paul D. Hanna_, Dec 06 2009: (Start)

STATUS

proposed

editing

#16 by Jean-François Alcover at Mon Jan 15 07:36:58 EST 2018

STATUS

editing

proposed

#15 by Jean-François Alcover at Mon Jan 15 07:36:53 EST 2018

MATHEMATICA

terms = 22; A[_] = 1; Do[A[x_] = 1 + x*A[x]*A[1 - 1/A[x]] + O[x]^j // Normal, {j, terms}]; CoefficientList[A[x], x] (* Jean-François Alcover, Jan 15 2018 *)

STATUS

approved

editing

#14 by Charles R Greathouse IV at Tue Jul 19 10:53:24 EDT 2016

STATUS

editing

approved

#13 by Charles R Greathouse IV at Tue Jul 19 10:52:30 EDT 2016

PROG

(PARI) {a(n)=local(A=1+x); for(i=1, n, A=(1+A*serreverse(x/(A+x*O(x^n))))^1); polcoeff(A, n)} \\ _Paul D. Hanna_, Dec 06 2009

for(n=0, 30, print1(a(n), ", ")) \\ _Paul D. Hanna_, Dec 06 2009

polcoeff(A+x*O(x^n), n)} \\ _Paul D. Hanna_, Dec 09 2013

for(n=0, 30, print1(a(n), ", ")) \\ _Paul D. Hanna_, Dec 09 2013

CROSSREFS

Cf. variantsVariants: A154677, A168448, A168449, A168478, A168479.

STATUS

approved

editing

#12 by Vaclav Kotesovec at Fri Aug 08 15:06:35 EDT 2014

STATUS

editing

approved

#11 by Vaclav Kotesovec at Fri Aug 08 14:54:44 EDT 2014

LINKS

Vaclav Kotesovec, <a href="/A088713/b088713.txt">Table of n, a(n) for n = 0..300</a>

STATUS

approved

editing

#10 by Paul D. Hanna at Mon Dec 09 21:06:55 EST 2013

STATUS

editing

approved