The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A073711

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

A073711

G.f. satisfies: A(x) = A(x^2) + x*A(x^2)^2.
(history; published version)

#34 by Charles R Greathouse IV at Tue Jul 19 10:50:04 EDT 2016

STATUS

editing

approved

#33 by Charles R Greathouse IV at Tue Jul 19 10:48:14 EDT 2016

PROG

(tail $ concat $ transpose [a073711_list, a073712_list])

(PARI) {a(n)=local(A=1); for(i=0, #binary(n), A=subst(A, x, x^2+x*O(x^n))+x*subst(A, x, x^2+x*O(x^n))^2); polcoeff(A, n)} \\ _Paul D. Hanna_, Dec 21 2012

for(n=0, 65, print1(a(n), ", ")) \\ _Paul D. Hanna_, Dec 21 2012

STATUS

approved

editing

#32 by Alois P. Heinz at Sat Apr 23 14:36:54 EDT 2016

STATUS

reviewed

approved

#31 by Joerg Arndt at Sat Apr 23 11:48:41 EDT 2016

STATUS

proposed

reviewed

#30 by Jean-François Alcover at Sat Apr 23 11:23:58 EDT 2016

STATUS

editing

proposed

#29 by Jean-François Alcover at Sat Apr 23 11:22:09 EDT 2016

MATHEMATICA

max = 64; f[x_] := Sum[ a[k]*x^k, {k, 0, max}]; a[0] = a[1] = a[2] = 1; coes = CoefficientList[ Series[ f[x] - f[x^2] - x*f[x^2]^2, {x, 0, max}], x]; Table[a[k] , {k, 0, max}] /. Solve[Thread[coes == 0]] // First (* Jean-François Alcover, Mar 06 2013 *)

For[A = 1; n = 1, n <= 65, n++, A = (Normal[A] /. x -> x^2) + x*(Normal[A] /. x -> x^2)^2 + O[x]^n]; CoefficientList[A, x] (* Jean-François Alcover, Mar 06 2013, updated Apr 23 2016 *)

STATUS

approved

editing

#28 by Charles R Greathouse IV at Sat Jul 13 12:02:48 EDT 2013

LINKS

_Reinhard Zumkeller_, , <a href="/A073711/b073711.txt">Table of n, a(n) for n = 0..10000</a>

Discussion

Sat Jul 13

12:02

OEIS Server: https://oeis.org/edit/global/1934

#27 by Bruno Berselli at Wed Mar 06 05:15:59 EST 2013

STATUS

proposed

approved

#26 by Jean-François Alcover at Wed Mar 06 05:13:48 EST 2013

STATUS

editing

proposed

#25 by Jean-François Alcover at Wed Mar 06 05:13:42 EST 2013

MATHEMATICA

STATUS

approved

editing