A203611型:=程序(n)局部A、R、B、C、D、Z;如果n=0,则返回(1)fi;
A:=iquo(n,2);R:=n-1;B:=A-R/2+1;C:=A+1;D:=A-R;
Z 一 :=`如果`n个 -> 超几何([-n个 国防部 /2 = , 1,( - n个+1)/2, (1-n个^)/2*, (1-n个+)/2)/], [1, -n个, 1 - n个], 16);:
Z*浅层([1,C,C+1,D,D],[B,B,B-1/2,B+1/2],1/16)结束:
seq(简化(b一(我n个)),我 n个 = 0..31); # _彼得 卢什尼_, 3月 24 2023