Same as S000461 except that the set s is a subset of {1,2,…,n}.
0, -4, 0, -4, 0, 0, 8, -18, -12, -10, -10, 0, 0, 6, 20, -4, 0, 0, 0, -10, 8, 8, 0, 12, 6, 6, 24, 20, 20, 30, 48, -48, -40, -36, -36, -42, -36, -24, -24, -28, -24, -16, -18, -16, -18, -16, -18, 0, 0, 0, 0, 0, 0, 14, 12, 14, 14, 36, 32, 36, 36, 54, 80, -4, 0, 0
1
Row n has 2^(n-1) terms.
T. D. Noe, Plot of 13 irregular rows
T. D. Noe, Table of 13 irregular rows
(Mma) Table[Table[Total[DivisorSigma[0, s]]^2 - Total[DivisorSigma[0, s]^3], {s, Complement[Subsets[Range[n]], Subsets[Range[n - 1]]]}], {n, 5}]
Cf. S000461.
nonn,tabf
T. D. Noe, Feb 02 2015