The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A186545 Sequence of coefficients arising in study of generating function for A067619. 2
 1, -1, 3, -2, 5, -5, 8, -7, 13, -13, 18, -19, 26, -29, 39, -40, 52, -60, 72, -81, 101, -113, 134, -152, 181, -206, 243, -273, 318, -365, 418, -473, 549, -620, 710, -803, 914, -1034, 1177, -1322, 1498, -1691, 1904, -2139, 2416, -2704, 3036, -3400, 3811, -4261 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,3 LINKS Vaclav Kotesovec, Table of n, a(n) for n = 1..1000 Arnold Knopfmacher and Neville Robbins, Identities for the total number of parts in partitions of integers, Util. Math. 67 (2005), 9-18. (See last line of text.) MATHEMATICA nmax = 50; A067619 = CoefficientList[Series[Sum[k*x^(2*k - 1)*Product[1 + x^(2*j - 1), {j, 1, k - 1}], {k, 1, nmax + 1}], {x, 0, nmax + 1}], x]; A000700 = CoefficientList[Series[Product[1 + x^(2 k + 1), {k, 0, nmax + 1}], {x, 0, nmax + 1}], x]; b = ConstantArray[0, nmax + 1]; b[[1]] = 0; Do[b[[n + 1]] = (A067619[[n + 1]] - Sum[A000700[[n - k + 1]]*b[[k + 1]], {k, 0, n - 1}]) / A000700[[1]], {n, 1, nmax}]; Rest[b] (* Vaclav Kotesovec, Jun 28 2016 *) CROSSREFS Sequence in context: A093048 A141732 A325695 * A008623 A035546 A339406 Adjacent sequences: A186542 A186543 A186544 * A186546 A186547 A186548 KEYWORD sign AUTHOR N. J. A. Sloane, Feb 23 2011 EXTENSIONS More terms from Vaclav Kotesovec, Jun 28 2016 STATUS approved

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

Last modified April 13 11:55 EDT 2024. Contains 371640 sequences. (Running on oeis4.)