%I#54 2024年2月18日10:33:05

%S 1,2,6,12,60，6042084025202520277202772036036036072072，

%电话：14414424504482450448465585122327925602327925660，

%电话：53542288805354228.8802677114440026771144008031343320011473347600

%N第N交变谐波数的分母，和{k=1..N}（-1）^（k+1）/k。

%C a（n）是A003418（n）的除数。第一次这是一个适当的除数，是a（15）；见A269626_Jeppe Stig Nielsen，2016年3月1日

%H T.D.Noe和Robert Israel，n表，n=1..2000时a（n）

%H Eric Weisstein的数学世界，<a href=“http://mathworld.wolfram.com/HarmonicNumber.html“>谐波数</a>

%对于A058313（n）/A058312（n），F G.F.：对数（1+x）/（1-x）_Benoit Cloitre_，2003年6月15日

%F a（n）=n*a（n-1）/gcd（n*a_罗伯特·伊斯雷尔（Robert Israel），2015年7月5日

%F a（n）=连分数1/（1+1^2/（1+2^2/_彼得·巴拉（Peter Bala），2024年2月18日

%e 1、1/2、5/6、7/12、47/60、37/60、319/420、533/840、1879/2520。。。

%p A058313:=n->分母（加（（-1）^（k+1）/k，k=1..n））；

%p#或者：

%p a:=n->分母（谐波（n）-谐波（（n-modp（n，2））/2））：

%p序列（a（n），n=1..28）；#_Peter Luschny_，2016年5月3日

%t a[n_]：=和[（-1）^（k+1）/k，{k，1，n}]；表[a[n]//分母，{n，1，30}]（*_Jean-François Alcover_，2015年5月26日*）

%t a[n_]：=（-1）^n（谐波数[n/2-1/2]-谐波数[n/2]+（-1）^n对数[4]）/2；表[a[n]//完全简化，{n，1，29}]//分母（*_Gerry Martens_，2015年7月5日*）

%t静止[分母[系数列表[系列[Log[1+x]/（1-x），{x，0，33}]，x]]（*Vincenzo Librandi_，2015年7月6日*）

%o（PARI）a（n）=分母（polceoff（-log（1-x）/（x+1）+o（x^（n+1）），n））

%o（PARI）a（n）=分母（总和（k=1，n，（-1）^（k+1）/k））\\_Jeppe Stig Nielsen_，2016年3月1日

%o（哈斯克尔）

%o导入数据。比率（%），分母）

%o a058312 n=a058312_列表！！（n-1）

%o a058312_list=映射分母$scanl1（+）$

%o映射（1%）$tail a181983_list

%o--_Reinhard Zumkeller，2013年3月20日

%Y分子是A058313。参见A025530。

%Y参考A002805（第n次谐波数分母）。

%Y参见A121594、A181983、A003418、A269626。

%K non，frac，很好，很容易

%O 1,2号机组

%A _N.J.A.Sloane，2000年12月9日