- 注册时间
- 2008-1-13
- 最后登录
- 1970-1-1
- 威望
- 星
- 金币
- 枚
- 贡献
- 分
- 经验
- 点
- 鲜花
- 朵
- 魅力
- 点
- 上传
- 次
- 下载
- 次
- 积分
- 24907
- 在线时间
- 小时
|
发表于 2023-9-25 21:18:15
|
显示全部楼层
本帖最后由 northwolves 于 2023-9-25 21:31 编辑
- Table[Length@Select[Table[Partition[v,{2}],{v,Tuples[Range[0,2k],{4}]}],OddQ[Det[#]]&]/(2k+1)^4,{k,20}]
复制代码
$n=2,k=1 to 20$
$P={\frac{16}{81},\frac{168}{625},\frac{720}{2401},\frac{2080}{6561},\frac{4800}{14641},\frac{9576}{28561},\frac{17248}{50625},\frac{28800}{83521},\frac{45360}{130321},\frac{68200}{194481},\frac{98736}{279841},\frac{138528}{390625},\frac{189280}{531441},\frac{252840}{707281},\frac{331200}{923521},\frac{426496}{1185921},\frac{541008}{1500625},\frac{677160}{1874161},\frac{837520}{2313441},\frac{1024800}{2825761}}$ |
|