|
| |
|
| A274080型 |
| 按行读取表：第n行给出了与反对角线读取的自然数中的n在同一行、列或对角线中小于n的所有数字。 |
|
6
|
|
|
|
1, 1, 2, 1, 2, 1, 2, 3, 4, 1, 3, 4, 5, 1, 2, 4, 2, 3, 4, 5, 7, 2, 3, 5, 6, 7, 8, 1, 3, 6, 7, 8, 9, 1, 2, 4, 7, 3, 4, 5, 7, 8, 11, 1, 4, 5, 6, 8, 9, 11, 12, 2, 5, 6, 9, 10, 11, 12, 13, 1, 3, 6, 10, 11, 12, 13, 14, 1, 2, 4, 7, 11, 3, 5, 7, 8, 11, 12, 16, 2, 6, 7
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,3
|
|
|
链接
|
|
|
|
例子
|
1 2 4 7
3 5 8
6 9
。。。
因此：
第1行：[]
第2行：[1]
第3行：[1,2]
第4行：[1,2]
第5行：[1,2,3,4]
第6行：[1,3,4,5]
第7行：[1,2,4]
第8行：[2,3,4,5,7]
第9行：[2,3,5,6,7,8]
|
|
|
数学
|
nn=18；t=表[（n^2-n）/2+累积@范围[n-1，上限[（Sqrt[9+8 nn]-3）/2]]+1，{n，上限[（Sqrt[9+8 nn]-3）/2]+1}]；表[Function[a，Function[p，Most@Union@Flatten@{Map[a[[#1，#2]]&@@#&，Most@@NestWhileList[#-1&，First@p，！MemberQ[#，0]&]]，Range[SelectFirst[Reverse@Join[{0}，First@t]，n>=#&]，n-1]，Transpose[a][p[[1，2]]]，a[p[1，1]]]]@Position[a，n]@Array[t[[#1,#2]]&，第一个@位置[t，n]]，{n，nn}]//展平(*迈克尔·德弗利格，2016年6月29日，版本10*）
|
|
|
黄体脂酮素
|
（哈斯克尔）
导入数据。列表（排序，nub）
a274080 n=a274080_列表！！（n-1）
a274080_list=凹面映射a274080_row[1..]
a274080_tabf=映射a274080行[1..]
a274080_row n=nub$sort$concatMap（\f->f n）[a274079_row，a273825_row、a273824_row和a273823_row]
|
|
|
交叉参考
|
|
|
|
关键词
|
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
