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 A127139 #20 Feb 15 2022 11:10:52
%S A127139 1,-2,1,-3,0,1,0,-2,0,1,-5,0,0,0,1,6,-3,-2,0,0,1,-7,0,0,0,0,0,1,0,0,0,
%T A127139 -2,0,0,0,1,0,0,-3,0,0,0,0,0,1,10,-5,0,0,-2,0,0,0,0,1
%N A127139 Inverse triangle of A126988.
%C A127139 Row sums give A023900.
%C A127139 Left column is A055615.
%C A127139 A127139 * [1, 2, 3, ...] = [1, 0, 0, 0, ...].
%C A127139 A127139 * [1, 0, 0, 0, ...] = A055615.
%C A127139 A127140 is the square of A127139.
%F A127139 Inverse triangle of A126988.
%e A127139 First few rows of the triangle:
%e A127139 1;
%e A127139 -2, 1;
%e A127139 -3, 0, 1;
%e A127139 0, -2, 0, 1;
%e A127139 -5, 0, 0, 0, 1;
%e A127139 6, -3, -2, 0, 0, 1;
%e A127139 -7, 0, 0, 0, 0, 0, 1;
%e A127139 ...
%t A127139 nn = 10; s = 0; t[1, 1] = 1; t[n_, k_] := t[n, k] = If[k == 1, -Sum[t[n, k + i]/(i + 1)^(s - 1), {i, 1, n - 1}], If[Mod[n, k] == 0, t[n/k, 1], 0], 0]; Flatten[Table[Table[t[n, k], {k, 1, n}], {n, 1, nn}]] (* _Mats Granvik_, Mar 12 2016 *)
%Y A127139 Cf. A126988, A055615, A023900, A127140.
%K A127139 tabl,sign
%O A127139 1,2
%A A127139 _Gary W. Adamson_, Jan 06 2007