%I#15 2020年5月5日01:59:38
%S 1,3312928954583131317292369304139054577585766577905,
%电话9345108881119371395315137174411952121537229772617728257,
%电话:3065733249365773840142721446734825751617547855852963905
%所有元素都在{-N,…,N}中的奇异2X2矩阵的个数。
%C相关序列指南见A210000。
%H Chai Wah Wu,n的表格,a(n)表示n=0..10000</a>
%F a(n)=8*A134506(n)+(4*n+1)^2.-_安德鲁·霍罗伊,2020年5月4日
%e在由a(1)计算的33个矩阵中,有以下矩阵(以紧凑符号表示):
%e(-1,-1,-1和-1),(0,0,0.0),(1,-1,-1,1),(1,1,1,1)。
%t a=-n;b=n;z1=40;
%t t[n_]:=t[n]=扁平[表[w*z-x*y,{w,a,b},{x,a,b},}
%t c[n_,k_]:=c[n,k]=计数[t[n],k]
%t表[c[n,0],{n,0,z1}](*A209981*)
%t表[c[n,1],{n,0,z1}](*A209982*)
%t%/4(*A206258*)
%t 2%(*A209983*)
%t表[c[n,2],{n,0,z1}](*A209984*)
%t%/4(*A209985*)
%t表[c[n,3],{n,0,z1}](*A209986*)
%t%/8(*A209987*)
%t表[c[n,4],{n,0,z1}](*A209988*)
%t%/4(*A209989*)
%t表[c[n,5],{n,0,z1}](*A209990*)
%t%/8(*A209997*)
%Y参考A210000。
%K nonn公司
%0、2
%2012年3月17日,金伯利百灵
|