%I#5 2018年9月7日04:47:19

%S 1,0,2,9,664318818953601924263022431902593825167978106516，

%电话23349992199606288896482237146755212195033226472341461312，

%电话：48661337027901301649451806637434091978110422467711394085031767944072841531173363773420854688028996863597247747391959172989443327

%N exp的展开式（和{k>=1}（和{p|k，素数}p^k）*x^k/k）。

%F G.F.：乘积{k>=1}1/（1-素数（k）^素数（k）*x^素数（k））^（1/素数。

%t nmax=22；系数列表[Series[Exp[Sum[Sum[Coole[PrimeQ[d]]d^k，{d，Divisors[k]}]x^k/k，{k，1，nmax}]]，{x，0，nmax}]，x]

%t nmax=22；系数列表[级数[积[1/（1-素数[k]^素数[k]x^素素[k]）^（1/素数[k]），{k，1，nmax}]，{x，0，nmax{]，x]

%ta[n_]：=a[n]=如果[n==0，1，Sum[Sum[Boole[PrimeQ[d]]d^k，{d，Divisors[k]}]a[n-k]，{k，1，n}]/n]；表[a[n]，{n，0，22}]

%Y参见A000607、A023881、A200768、A219224、A220427、A318913、A318968。

%K nonn公司

%0、3

%A _Ilya Gutkovskiy_，2018年9月6日