%I#15 2022年2月14日10:44:58

%S 0,1,4,22155133313541158682107682312918945135901709234669420，

%电话：1805344758323812852144788865172956281882099170738243328，

%电话：54233863388192148651765444366401643084555863255892321316588795487600071904423065430645372910074241426115146736949130634400

%N例如f.log（1+log（1-x））/（1+log（1-x））的展开。

%H Seiichi Manyama，<a href=“/A302548/b302548.txt”>n表，n=0..418的a（n）</a>

%F a（n）=和{k=1..n}|Stirling1（n，k）|*H（k）*k！，其中H（k）是第k次谐波数。

%F a（n）~sqrt（2*Pi）*log（n）*n^（n+1/2）/（exp（1）-1）^（n+1）.-_Vaclav Kotesovec_，2018年6月23日

%例如：A（x）=x+4*x^2/2！+22*x^3/3！+155*x^4/4！+1333*x^5/5！+13541*x^6/6！+。。。

%p H：=程序（n）H（n）：=1/n+`如果`（n=1，0，H（n-1））结束：

%p a:=n->添加（abs（斯特林1（n，k））*H（k）*k！，k=1…n）：

%p序列（a（n），n=0..23）；#_Alois P.Heinz，2018年6月21日

%t nmax=21；系数列表[Series[-Log[1+Log[1-x]]/（1+Log[1-x]），{x，0，nmax}]，x]Range[0，nmax]！

%t表[Sum[Abs[StirlingS1[n，k]]谐波数[k]k！，{k，0，n}]，{n，0，21}]

%Y参见A000254、A001008、A002805、A003713、A007840、A073596、A222058、A300490、A302547。

%K nonn公司

%0、3

%A _Ilya Gutkovskiy_，2018年6月20日