%I#25 2024年4月5日10:10:43

%S 1,4,2214811449784903468858989115276975786881079676448，

%电话：122857256321432046496170442201899220660609113186，

%电话：254522834851516318093534653844026942661019333925157434565135460726675036087017279056872149640277943769611497018682924559744

%4维4步随机行走的N个矩。

%H J.M.Borwein，<a href=“https://schoolrship.claremont.edu/jhm/vol6/iss1/7“>短距离步行可能很美</A>，《人文数学杂志》，第6卷第1期（2016年1月），第86-109页。

%H J.M.Borwein，<a href=“https://carmamaths.org/resources/jon/OEIStalk.pdf“>《OEIS历险记：托尼可能喜欢的五个序列》，Guttmann第70届[生日]会议，2015年，2016年5月修订。

%H J.M.Borwein，《OEIS历险记：Tony可能喜欢的五个序列》，Guttmann第70届[生日]会议，2015年，2016年5月修订。[缓存副本，具有权限]

%H Jonathan M.Borwein、Armin Straub和Christophe Vignat，<a href=“https://arminstraub.com/pub/dwalks网站“>短均匀随机游动的密度，第二部分：高维，预印本，2015年。

%pW:=进程（n，nu，twok）

%p选项记忆；

%p局部k；

%p k：=2 k/2；

%p如果n=2且nu=1，则

%p二项式（2*k+2，k+1）/（k+2）；

%p其他

%p加（procname（n-1，nu，2*j）*二项式（k，j）*（k+nu）*努/（k-j+nu）/（j+nu）！，j=0..k）；

%p简化（%，GAMMA）；

%p end if；

%p端程序：

%p A253095:=程序（n）

%p W（4,1，n）；

%p端程序：

%p序列（A253095（2*n），n=0..25）；#_R.J.Mathar，2015年6月14日

%t W[n_，nu_，twok_]：=W[n，nu，twok]=模[{k}，k=twok/2；如果[n==2&nu==1，二项式[2k+2，k+1]/（k+2），和[W[n-1，nu、2j]*二项式[k，j]*（k+nu）*努/（k-j+nu）/（j+nu）！，{j，0，k}]]；

%t A253095[n]：=W[4，1，n]；

%t表[A253095[2n]，{n，0，25}]（*Jean-François Alcover_，2023年4月16日，在R.J.Mathar_*之后）

%K nonn公司

%0、2

%A.N.J.A.Sloane_，2015年2月16日