%I#11 2018年6月29日21:47:17
%S 0,1,2,4,11,33131562628101293497870447940530811216394116,
%电话:450505844,-31517891260774618672,-3943301136481266222550288,
%电话:157622647720032766647294944,-646792141986475201475157821754785184,-3043120603039719424719032203373502252160
%N扩展,例如f.log(1-log(1+x))/(1-log(1-x))。
%H Alois P.Heinz,n的表格,n=0..451的a(n)</a>
%F a(n)=和{k=1..n}斯特林1(n,k)*H(k)*k!,其中H(k)是第k次谐波数。
%例如:A(x)=x+2*x^2/2!+4*x^3/3!+11*x^4/4!+33*x^5/5!+131*x^6/6!+。。。
%p H:=程序(n)H(n):=1/n+`如果`(n=1,0,H(n-1))结束:
%p a:=n->加(Stirling1(n,k)*H(k)*k!,k=1…n):
%p序列(a(n),n=0..27);#_Alois P.Heinz,2018年6月21日
%t nmax=24;系数列表[Series[-Log[1-Log[1+x]]/(1-Log[1+x]),{x,0,nmax}],x]Range[0,nmax]!
%t表[Sum[StirlingS1[n,k]谐波数[k]k!,{k,0,n}],{n,0,24}]
%Y参见A000254、A001008、A002805、A006252、A073596、A089064、A222058、A300490、A302548。
%K符号
%O 0.3
%A _Ilya Gutkovskiy_,2018年6月20日
|