nmax=22；系数列表[Series[Log[1+2 x/（Exp[x]+1）]，{x，0，nmax}]，x]Range[0，nmax]！
a[n]：=a[n]=n EulerE[n-1，0]-求和[k二项式[n，k]（n-k）EulerE[n-k-1，0]a[k]，{k，1，n-1}]/n；a[0]=0；表[a[n]，{n，0，22}]
a[n]：=a[n]=2（1-2^n）BernoulliB[n]-求和[k二项式[n，k]2（1-2 ^（n-k））BernowliB[n-k]a[k]，{k，1，n-1}]/n；a[0]=0；表[a[n]，{n，0，22}]
