%I#18 2024年5月26日08:29:43
%S 1,1,1,1,2,2,1,3,6,2,6,2,6,3,2,2,2,2,2,2,2,2,10,10,30,30,30,12,12,
%电话:3,3,6,30,10,10,30,6,6,2,2,30,60,60,30210,42,42,428,2,2,
%U 4,4,4,14,84,21,21,14,14,14],42,6,6,2,2,10,10,70140,14126126号机组
%N设k为最大数,使k^2除以N!;a(n)=k/楼层(n/2)!。
%F a(n)=A000188(n!)/楼层(n/2)!=A055772(n)/A000142(A004526(n))=A055771(n)/A081123(n)。【由_Amiram Eldar_更正,2024年5月24日】
%e对于n=7,7!=5040=144*35,因此12是其最大的方形-圆形遮阳板A000188(5040),可被6=3整除!,所以a(7)=12/3!=2
%t f[p_,e_]:=p^楼层[e/2];b[1]=1;a[n_]:=(Times@@f@@FactorInteger[n!])/Floor[n/2]!;阵列[a,100](*_Amiram Eldar_,2024年5月24日*)
%Y参见A000142、A000188、A001405、A004526、A055772、A081123。
%K nonn公司
%O 1,6型
%A _Labos Elemer,2000年7月25日
|