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

Thanks to everyone who made a donation during our annual appeal!
To see the list of donors, or make a donation, see the OEIS Foundation home page.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A294067 Row 4 in rectangular array A292929. 5
 2, -4, 8, -12, 24, -40, 38, -96, 138, -134, 316, -384, 384, -790, 982, -1168, 1976, -2400, 2904, -4464, 5632, -6956, 9904, -12320, 15186, -20938, 26000, -32008, 42560, -52278, 64458, -83736, 102294, -125428, 159288, -193908, 236632, -295612, 358170, -434364, 535958, -646032, 778504, -950552, 1139784, -1367002, 1654268, -1972508, 2353214, -2825722, 3355344, -3983820, 4749672, -5614558, 6634830 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,1 LINKS Paul D. Hanna, Table of n, a(n) for n = 0..380 EXAMPLE G.f.: A(q) = 2 - 4*q + 8*q^2 - 12*q^3 + 24*q^4 - 40*q^5 + 38*q^6 - 96*q^7 + 138*q^8 - 134*q^9 + 316*q^10 - 384*q^11 + 384*q^12 - 790*q^13 + 982*q^14 - 1168*q^15 + 1976*q^16 - 2400*q^17 + 2904*q^18 - 4464*q^19 + 5632*q^20 +... MATHEMATICA nmax = 55; kmax = Ceiling[Sqrt[nmax]]+1; Q[q_] := Sum[(x - q^k)^k, {k, -kmax, kmax}]; S[q_] := Sqrt[Q[q]/Q[-q]]; row[n_] := (1/q^n)*SeriesCoefficient[Sqrt[Q[q]/Q[-q]], {x, 0, n} ] + O[q]^nmax // CoefficientList[#, q] &; row[4] (* Jean-François Alcover, Nov 04 2017 *) CROSSREFS Cf. A292929, A293132, A294065, A294066. Sequence in context: A293601 A171647 A089821 * A279312 A326076 A181808 Adjacent sequences:  A294064 A294065 A294066 * A294068 A294069 A294070 KEYWORD sign AUTHOR Paul D. Hanna, Oct 23 2017 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 January 18 13:30 EST 2020. Contains 331007 sequences. (Running on oeis4.)