%I M0534#36 2022年9月8日08:44:35

%S 1,1,2,3,4,5,12,21,32,4512023184585168034656144994530240，

%电话：65835122880208845665280151420529419210221251729040883535，

%电话：82575360151412625189184001267389585264241520499616625

%N四重阶乘数N！！！：a（n）=n*a（n-4）。

%D N.J.A.Sloane和Simon Plouffe，《整数序列百科全书》，学术出版社，1995年（包括该序列）。

%D J.Spanier和K.B.Oldham，功能地图集，半球，纽约，1987年，第23页。

%H Klaus Brockhaus，n表，n=0..500时的a（n）</a>

%H Eric Weisstein的数学世界，<a href=“http://mathworld.wolfram.com/Multifactual.html“>多因素</a>。

%F a（n）~c*n^（n/4+1/2）/exp_瓦茨拉夫·科特索维奇，2013年7月29日

%F和{n>=0}1/a（n）=A288091_Amiram Eldar，2020年11月10日

%t NFactorialM[n_Integer，m_Integer]：=块[{k=n，p=Max[1，n]}，而[k>m，k-=m；p*=k]；p] ；表[NFactorialM[n，4]，{n，0，34}]（*_Robert G.Wilson v_*）

%用[{k=4}，表[{q=商[n+k-1，k]}，k^qq！二项式[n/k，q]]，{n，0，34}]]（*Jan Mangaldan_，2013年3月21日*）

%o（岩浆）I:=[1，1，2，3]；[n le 4选择I[n]else（n-1）*Self（n-4）：n in[1..36]]；//_Klaus Brockhaus，2011年6月23日

%o（Magma）A007662:=func<n|n eq 0 select 1 else&*[k:k in[1..n]|k mod 4 eq n mod 4]>；[A007662（n）：[0..35]]中的n；//_Klaus Brockhaus，2011年6月23日

%o（PARI）a（n）=如果（n<6，max（n，1），n*a（n-4））\\查尔斯·格里特豪斯IV，2011年6月23日

%Y参见A047053、A007696、A001813、A008545、A000142、A006882、A007661、A288091。

%K nonn公司

%O 0.3

%A _N.J.A.Sloane，_Robert G.Wilson v _，_Mira Bernstein_