谢谢 Treenewbee !好像是这串数?
{0, 0, 0, 1, 0, 27, 0, 77, 100, 220, 0, 897, 0, 747, 1201, 1801, 0, 4120, 0}
Table[Table[ Length@Flatten@Table[Solve[{s1 == x*y/2, s2 == (n - x) (n - z) k/(2 n),
s3 == z (k - y)/2, s4 == n*k/2 - s1 - s2 - s3}, {s1, s2, s3, s4}, PositiveIntegers],
{z, 1, n - 1}, {y, 1, k - 1}, {x, 1, n - 1}]/4, {k, 1, n - 1}] // Total, {n, 1, 19}] |