|
| |
|
| A190312号 |
| n X n网格（或地理板）上的不规则三角形数。 |
|
1
|
|
|
|
0, 0, 40, 368, 1704, 5704, 15400, 36096, 75632, 145968, 263592, 451392, 738360, 1163552, 1774840, 2632344, 3808992, 5394752, 7493936, 10233832, 13759008, 18241312, 23877984, 30896984, 39551456, 50137240, 62983128, 78459880
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,3
|
|
|
链接
|
|
|
|
配方奶粉
|
|
|
|
数学
|
q[n]：=
模块[{sqDist，t0，t1，t2}，
（*平方距离*）
sqDist={p_，q_}:>（楼层[p/n]-楼层[q/n]）^2+（Mod[p，n]-Mod[q，n]）^2；
（*点的三位一体*）
t0=子集[范围[0，n^2-1]，{3，3}]；
（*排除共线顶点*）
t1=选择[t0，Det[Map[{Floor[#/n]，Mod[#，n]，1}&，{#[1]]，#[2]]#[[
3] ]]！=0 &];
（*计算边*）
t2=地图[{#，
排序[{#[2]]、#[[3]]}、{#[[3]]、#[1]]}，{#[1]]，#[2]]}/。sqDist]}&，t1]；
（*选择缩放比例*）
t2=选择[t2，
#[[2, 1]] != #[[2, 2]] && #[[2, 2]] != #[[2, 3]] && #[[2, 3]] != #[[2，1]]][]；
返回[长度[t2]；
];
|
|
|
交叉参考
|
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
状态
|
已批准
|
| |
|
|
