表[级数系数[积[（1+n^（k-1）x^k），{k，1，n}]，{x，0，n}]，{n，0，20}]
取消保护[电源]；0^0 = 1; 表[Sum[Length[Select[IntegerPartitions[n，{k}]，UnsameQ@#&]]n ^（n-k），{k，0，Floor[（Sqrt[8 n+1]-1）/2]}]，{n，0，20}]
连接[{1}，表[SeriesCoefficient[n*QPochhammer[-1/n，n*x]/（n+1），{x，0，n}]，{n，1，20}]](*瓦茨拉夫·科特索维奇2021年5月9日*）
