(蟒蛇)
定义t(n):
s=0
对于范围内(0,n+1):
对于范围(0,n+1)内的b:
对于范围(0,n+1)内的c:
对于范围(0,n+1)内的d:
如果(a!=b和a!=d和b!=d和c!=a和c!=b和c!=d):
如果(a*d-b*c)%2==1:
s+=1
返回s
对于范围(0201)内的i:
打印字符串(i)+“”+字符串(t(i))
(PARI)F(n,{r=0})={my(s=向量(2),v);forvec(y=向量(4,j,[0,n]),对于(k=23*)!!r、 23,v=numOperm(4,k);s[1+(y[v[1]]*y[v[4]]-y[v[3]]*y[v[2]])%2]++),2*!r) ;return(s)}\\a(n)=F(n,0)[2];
(平价)concat(向量(3),Vec(8*x^3*(1+2*x+11*x^2+4*x^3)/((1-x)^5*(1+x)^4)+O(x^40)))\\科林·巴克2016年12月13日
|