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

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A073708 Generating function A(x) satisfies A(x) = (1+x)^2*A(x^2)^2, with A(0)=1. 9
 1, 2, 5, 8, 18, 28, 50, 72, 129, 186, 301, 416, 664, 912, 1368, 1824, 2730, 3636, 5234, 6832, 9788, 12744, 17724, 22704, 31506, 40308, 54730, 69152, 93592, 118032, 156888, 195744, 259625, 323506, 423021, 522536, 681642, 840748, 1083402, 1326056, 1705665 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,2 LINKS Paul D. Hanna, Table of n, a(n) for n = 0..1000 FORMULA Equals the self-convolution of A073707. EXAMPLE G.f.: A(x) = 1 + 2*x + 5*x^2 + 8*x^3 + 18*x^4 + 28*x^5 + 50*x^6 +... where A(x)^2 = 1 + 4*x + 14*x^2 + 36*x^3 + 93*x^4 + 208*x^5 + 456*x^6 +... This sequence equals the self-convolution of A073707, which begins: [1, 1, 2, 2, 5, 5, 8, 8, 18, 18, 28, 28, 50, 50, ...]. The first differences of this sequence result in A073709: [1, 1, 3, 3, 10, 10, 22, 22, 57, 57, 115, 115, ...]; the self-convolution of A073709 yields A073710: [1, 2, 7, 12, 35, 58, 133, 208, ...], which in turn equals the first differences of the unique terms of A073709. MATHEMATICA A073708list[n_] := Module[{m = 1, A = 1}, While[m <= n, m = 2 m; A = ((1 + x)*(A /. x -> x^2))^2] + O[x]^m; CoefficientList[A, x][[1 ;; n]]]; A073708list[50] (* Jean-François Alcover, Apr 21 2016, adapted from PARI *) PROG (PARI) a(n)=local(A, m); if(n<0, 0, m=1; A=1+O(x); while(m<=n, m*=2; A=((1+x)*subst(A, x, x^2))^2); polcoeff(A, n)) (Haskell) a073708 n = a073708_list !! n a073708_list = conv a073707_list [] where    conv (v:vs) ws = (sum \$ zipWith (*) ws' \$ reverse ws') : conv vs ws'                     where ws' = v : ws -- Reinhard Zumkeller, Jun 13 2013 CROSSREFS Cf. A073709, A073710. A073707(2n)=a(n). Sequence in context: A050872 A086324 A293830 * A024460 A039658 A063675 Adjacent sequences:  A073705 A073706 A073707 * A073709 A073710 A073711 KEYWORD easy,nonn AUTHOR Paul D. Hanna, Aug 04 2002 EXTENSIONS Edited by Michael Somos, May 03, 2003 Edited by Paul D. Hanna, Jan 04 2013 STATUS approved

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.

Last modified February 16 21:46 EST 2020. Contains 331975 sequences. (Running on oeis4.)