%I#8 2021年9月16日23:52:43
%S 1,1,5,26175138412933135050158290120380208286577754352682256,
%电话:712477721121124492324396623166410626374569406064889070,
%电话:952169603396832032088511541759836084812156417656806393116112764199821653284292865845724340590177042063731887400418
%例如:产品{k>=1}1/(1-x^k)^(exp(x)/k)。
%C A002746的指数变换。
%例如:exp(exp(x)*Sum_{k>=1}d(k)*x^k/k)。
%F a(0)=1;a(n)=和{k=1..n}二项式(n-1,k-1)*A002746(k)*a(n-k)。
%t nmax=21;系数列表[Series[Product[1/(1-x^k)^(Exp[x]/k),{k,1,nmax}],{x,0,nmax{],x]Range[0,nmax]!
%t最大值=21;系数列表[Series[Exp[Exp[x]Sum[DivisorSigma[0,k]x^k/k,{k,1,nmax}]],{x,0,nmax{],x]Range[0,nmax]!
%t A002746[n_]:=和[二项式[n,k]除数Sigma[0,k](k-1)!,{k,1,n}];a[0]=1;a[n]:=a[n]=和[二项式[n-1,k-1]A002746[k]a[n-k],{k,1,n}];表[a[n],{n,0,21}]
%Y请参阅A000005、A002746、A028342、A346546、A34654、A34658。
%K nonn公司
%0、3
%A _Ilya Gutkovskiy,2021年9月16日
|