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 A160096 #52 Jun 03 2023 23:57:55
%S A160096 1,2,2,2,1,1,0,0,0,0,0,1,1,1,2,2,2,2,2,2,2,1,1,1,1,0,0,0,0,0,0,0,0,0,
%T A160096 1,1,1,1,1,2,2,2,2,2,2,2,2,2,2,2,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,
%U A160096 0,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2
%N A160096 Partial sums of A010815 starting with offset 1, and signed (+ + - - + + ...).
%C A160096 INVERT transform of the sequence = A137682: (1, 3, 7, 17, 40, 96, 228, ...).
%C A160096 From _Mats Granvik_, Jan 01 2015: (Start)
%C A160096 (1) The positive integers are the row sums of the infinite lower triangular matrix "t" starting:
%C A160096 1, 0, 0, 0, 0, 0, 0, ...
%C A160096 1, 1, 0, 0, 0, 0, 0, ...
%C A160096 1, 1, 1, 0, 0, 0, 0, ...
%C A160096 1, 1, 1, 1, 0, 0, 0, ...
%C A160096 1, 1, 1, 1, 1, 0, 0, ...
%C A160096 1, 1, 1, 1, 1, 1, 0, ...
%C A160096 1, 1, 1, 1, 1, 1, 1, ...
%C A160096 ...
%C A160096 which satisfies the recurrence:
%C A160096 t(n, 1) = 1; t(n, k) = Sum_{i=1..n-1} t(n-i, k-1) - Sum_{i=1..n-1} t(n-i, k) if n >= k, otherwise 0;
%C A160096 (2) This sequence a(n), in turn, is the row sums of the infinite lower triangular matrix "t" starting:
%C A160096 1, 0, 0, 0, 0, 0, 0, ...
%C A160096 1, 1, 0, 0, 0, 0, 0, ...
%C A160096 1, 0, 1, 0, 0, 0, 0, ...
%C A160096 1, 0, 0, 1, 0, 0, 0, ...
%C A160096 1, 0,-1, 0, 1, 0, 0, ...
%C A160096 1, 0, 0,-1, 0, 1, 0, ...
%C A160096 1, 0, 0,-1,-1, 0, 1, ...
%C A160096 ...
%C A160096 which satisfies the recurrence:
%C A160096 t(n, 1) = 1; t(n, k) = Sum_{i=1..k-1} t(n-i, k-1) - Sum_{i=1..n-1} t(n-i, k) if n >= k, otherwise 0;
%C A160096 (3) The partition numbers are the row sums of the infinite lower triangular matrix "t" starting:
%C A160096 1, 0, 0, 0, 0, 0, 0, ...
%C A160096 1, 1, 0, 0, 0, 0, 0, ...
%C A160096 1, 1, 1, 0, 0, 0, 0, ...
%C A160096 1, 2, 1, 1, 0, 0, 0, ...
%C A160096 1, 2, 2, 1, 1, 0, 0, ...
%C A160096 1, 3, 3, 2, 1, 1, 0, ...
%C A160096 1, 3, 4, 3, 2, 1, 1, ...
%C A160096 ...
%C A160096 which satisfies the recurrence:
%C A160096 t(n, 1) = 1; t(n, k) = Sum_{i=1..n-1} t(n-i, k-1) - Sum_{i=1..k-1} t(n-i, k) if n >= k, otherwise 0;
%C A160096 (4) The number of divisors of "n" is the row sums of the infinite lower triangular matrix "t" starting:
%C A160096 1, 0, 0, 0, 0, 0, 0, ...
%C A160096 1, 1, 0, 0, 0, 0, 0, ...
%C A160096 1, 0, 1, 0, 0, 0, 0, ...
%C A160096 1, 1, 0, 1, 0, 0, 0, ...
%C A160096 1, 0, 0, 0, 1, 0, 0, ...
%C A160096 1, 1, 1, 0, 0, 1, 0, ...
%C A160096 1, 0, 0, 0, 0, 0, 1, ...
%C A160096 ...
%C A160096 which satisfies the recurrence:
%C A160096 t(n, 1) = 1; t(n, k) = Sum_{i=1..k-1} t(n-i, k-1) - Sum_{i=1..k-1} t(n-i, k) if n >= k, otherwise 0.
%C A160096 In the four cases of recurrences only the summation indices within the sums change, from (1) "n-1" and "n-1" to (2) "k-1" and "n-1" to (3) "n-1" and "k-1" to (4) "k-1" and "k-1".
%C A160096 (End)
%F A160096 Partial sums of Euler's q series (signed), starting from offset 1 = (1, 1, 0, 0, -1, 0, -1, 0, 0, 0, 0, 1, 0, 0, 1, ...).
%F A160096 G.f.: (1 - f(-x)) / (1 - x) where f(-x) is the g.f. of A010815. - _Michael Somos_, Jan 02 2015
%F A160096 Partial sums of A257628. - _Georg Fischer_, May 29 2023
%e A160096 The series begins (1, 2, 2, 2, 1, 1, 0, ...) since the signed q-series = (1, 1, 0, 0, -1, 0, ...).
%e A160096 G.f. = x + 2*x^2 + 2*x^3 + 2*x^4 + x^5 + x^6 + x^12 + x^13 + x^14 + ...
%t A160096 (* A160096 as row sums of recursively defined table *)
%t A160096 Clear[t]; nn = 90; t[n_, 1] = 1; t[n_, k_] := t[n, k] = If[n >= k, Sum[t[n - i, k - 1], {i, 1, k - 1}] - Sum[t[n - i, k], {i, 1, n - 1}], 0]; PartialSumsOfEulerqSeries = Table[Sum[t[n, k], {k, 1, n}], {n, 1, nn}] (* _Mats Granvik_, Jan 01 2015 *)
%t A160096 a[ n_] := SeriesCoefficient[ (1 - QPochhammer[ x]) / (1 - x), {x, 0, n}]; (* _Michael Somos_, Jan 02 2015 *)
%t A160096 CoefficientList[Series[q*(1/(1 - q)^(2)*QHypergeometricPFQ[{q, q}, {q^2, q}, q, q^2]), {q, 0, 89}], q] (* _Mats Granvik_, Jan 09 2015 *)
%o A160096 (PARI) {a(n) = if( n<0, 0, polcoeff( (1 - eta(x + x * O(x^n))) / (1 - x), n))}; /* _Michael Somos_, Jan 02 2015 */
%Y A160096 Cf. A010815, A257628.
%Y A160096 Cf. (1) A000027, (2) A160096, (3) A000041, (4) A000005.
%K A160096 nonn
%O A160096 1,2
%A A160096 _Gary W. Adamson_, May 01 2009
%E A160096 More terms from _Mats Granvik_, Jan 01 2015