a[1]=1;a[n_x]:=a[n]=1+a[n-1]+Total[Product[binodential[a[i]-1+Count[#,i],Count[#,i]],{i,deletecase[DeleteDuplicates[#],1]]&/@IntegerPartitions[n,{2,n-1}]];表[a[n],{n,24}](*罗伯特A.罗素2020年6月2日*)
a[1]=1;a[n[n U]:=a[n]=a[n-1]+(除数[n,a[35;]的####的[1]=1;a[a[n:a[n]=a[n[n[c[n[k]b[n-k],{k,1,n-1,n-1}]))/n;n;c[n[n U]:=c[n]=c[n,a[#]#&];表[a[k],{k,24}](*罗伯特A.罗素2020年6月4日*)
|