需要[“Combinatorica`”]
表[NumberOfGraphs[n，n-1]，{n，1，25}](*罗伯特·威尔逊v*)
（*第二个程序（不需要Combinatorica）：*）
permcount[v_]：=模[{m=1，s=0，k=0，t}，对于[i=1，i<=长度[v]，i++，t=v[i]]；k=如果[i>1&&t==v[[i-1]]，k+1，1]；m*=t*k；s+=t]；s/m] ；
边[v_，t_]：=乘积[乘积[g=GCD[v[i]]，v[[j]]]；t[v[[i]]*v[[j]]/g]^g，{j，1，i-1}]，{i，2，长度[v]}]*乘积[c=v[i]]；t[c]^商[c-1，2]*如果[OddQ[c]，1，t[c/2]]，{i，1，长度[v]}]；
a[n]：=a[n]=模块[｛s=0｝，Do[s+=置换数[p]*边[p，1+x^#&]，｛p，整数分区[n]｝]；序号！]//展开//系列系数[#，{x，0，n-1}]&；
