[seqfan] Re: A137777 starts with a gap

[Peter Pein]

Peter Luschny schrieb:
...
> The Mathematica code given in A137777 could be
> replaced by
> 
> Clear[p, b, a]; p[t_] = D[t^2*Exp[x*t]/(Exp[t]-1),{t,1}];
> a = Table[CoefficientList[2*n!^2*SeriesCoefficient
> [Series[p[t],{t,0,30}],n],x],{n,0,10}]; Flatten[a]

or simply by

Table[CoefficientList[2 BernoulliB[k,x] Gamma[2+k],x],{k,0,10}]//Flatten

Cheers,
Peter