(哈斯克尔)
a051924 n=a051924_列表!!(n-1)
a051924_list=zipWith(-)(尾部a000984_list)a000984 _ list
(PARI)a(n)=二项式(2*n,n)-二项式(2*n-2,n-1)\\查尔斯·格里特豪斯四世2013年6月25日
(PARI){a(n)=polceoff((1-x)/sqrt(1-4*x+x*O(x^n))-1,n)}
对于(n=1,30,打印1(a(n),“,”)\\保罗·D·汉娜2014年11月8日
(PARI){a(n)=polcoeff(和(m=1,n,x^m*和(k=0,m,二项式(m,k)^2*x^k)/(1-x+x*O(x^n))^(2*m)),n)}
对于(n=1,30,打印1(a(n),“,”)\\保罗·D·汉娜2014年11月8日
(鼠尾草)
a=λn:2^(-2+2*n)*伽马(n-1/2)*(3*n-2)/(平方英尺(π)*伽玛(1+n))
[(1..120)中n的a(n)]#彼得·卢什尼2015年12月14日
(岩浆)[二项式(2*n,n)-二项式; //文森佐·利班迪2016年12月21日