|
| |
|
| A122773号 |
| 三角形数组，参见Mathematica代码。 |
|
1
|
|
|
|
2, 1, -1, -4, 2, 1, 4, -4, 2, -1, -16, 24, -16, 4, 1, 16, -32, 28, -12, 3, -1, -64, 160, -176, 104, -36, 6, 1, 64, -192, 256, -192, 88, -24, 4, -1, -256, 896, -1408, 1280, -736, 272, -64, 8, 1, 256, -1024, 1856, -1984, 1376, -640, 200, -40, 5, -1, -1024, 4608, -9472, 11648, -9472, 5312, -2080, 560, -100, 10, 1, 1024
(列表;桌子;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
参考文献
|
杰伊·卡普拉夫（Jay Kappraff），《超越尺度，穿越自然、神话和数字的导览》（Beyond Measure，A Guided Tour Through Nature，Myth and Number），《世界科学》（World Scientific），2002年。
|
|
|
链接
|
J.Kappraff、D.Blackmore和G.Adamson，作为动力系统的叶序：数量研究《植物中的对称》，R.V.Jean和D.Barabe编辑。新加坡：世界科学。(1996).
|
|
|
例子
|
三角形阵列：
{2},
{1, -1},
{-4, 2, 1},
{4, -4, 2, -1},
{-16, 24, -16, 4, 1},
{16, -32, 28, -12, 3, -1},
{-64, 160, -176, 104, -36, 6, 1},
{64, -192, 256, -192, 88, -24, 4, -1}
|
|
|
数学
|
An[d_]：=表[If[n==d，1，If[m==n+1，1，0]]，{n，1，d}，{m，1，d}]；
联接[{{2}}，表[Coefficient List[Characteristic Polynomial[2*Identity Matrix Power[An[d]，-1]，x]，x]{d，1，20}]]
压扁[%]
|
|
|
交叉参考
|
|
|
|
关键字
|
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
