This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A294067 #7 Nov 04 2017 08:52:32
%S A294067 2,-4,8,-12,24,-40,38,-96,138,-134,316,-384,384,-790,982,-1168,1976,
%T A294067 -2400,2904,-4464,5632,-6956,9904,-12320,15186,-20938,26000,-32008,
%U A294067 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
%N A294067 Row 4 in rectangular array A292929.
%H A294067 Paul D. Hanna, <a href="/A294067/b294067.txt">Table of n, a(n) for n = 0..380</a>
%e A294067 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 +...
%t A294067 nmax = 55; kmax = Ceiling[Sqrt[nmax]]+1;
%t A294067 Q[q_] := Sum[(x - q^k)^k, {k, -kmax, kmax}];
%t A294067 S[q_] := Sqrt[Q[q]/Q[-q]];
%t A294067 row[n_] := (1/q^n)*SeriesCoefficient[Sqrt[Q[q]/Q[-q]], {x, 0, n} ] + O[q]^nmax // CoefficientList[#, q] &;
%t A294067 row[4] (* _Jean-François Alcover_, Nov 04 2017 *)
%Y A294067 Cf. A292929, A293132, A294065, A294066.
%K A294067 sign
%O A294067 0,1
%A A294067 _Paul D. Hanna_, Oct 23 2017