|
| |
| |
|
|
|
2, 4, 4, 4, 5, 7, 5, 8, 8, 2, 10, 8, 12, 11, 13, 6, 13, 6, 6, 9, 8, 11, 4, 8, 16, 5, 6, 7, 13, 12, 7, 10, 19, 15, 16, 17, 9, 6, 15, 10, 3, 11, 8, 18, 28, 14, 14, 10, 30, 28, 15, 4, 20, 33, 13, 12, 6, 22, 18, 21, 12, 11, 29, 12, 11, 8, 24, 18, 8, 14, 17, 32, 33
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
3,1
|
|
|
评论
|
b（n）=T（s（n-1），a（n））。
|
|
|
链接
|
|
|
|
例子
|
a（4）=4，因为b（4）=4是A162306型, {1, 2, 3, [4], 6}.
a（5）=4，因为b（5）=5是T（s（n-1），4）=T（10，4），{1，2，4，[5]，8，10}。
a（6）=4，因为b（6）=9是T（s（n-1），4）=T（15，4），{1，3，5，[9]，15}。
a（7）=5，因为b（7）=6是T（s（n-1），5）=T（24，5），{1，2，3，4，[6]，8，9，12，16，18，24}等。
---------------------------------------------------------------------
3 3 3 2 2 {1, [3]}
4 4 6 4 5 {1, 2, 3, [4], 6}
5 5 10 4 6 {1, 2, 4, [5], 8, 10}
6 9 15 4 5 {1, 3, 5, [9], 15}
7 6 24 5 11 {1, 2, 3, 4, [6], ..., 24}
8 8 30 7 18 {1, 2, 3, 4, 5, 6, [8], ..., 30}
9 16 38 5 8 {1, 2, 4, 8, [16], 19, 32, 38}
10 12 54 8 16 {1, 2, 3, 4, 6, 8, 9, [12], ..., 54}
11 11 66 8 22 {1, 2, 3, 4, 6, 8, 9, [11], ..., 66}
12 7 77 2 5 {1, [7], 11, 49, 77}
13 14 84 10 28 {1, 2, 3, 4, ..., 12, [14], ..., 84}
14 28 98 8 13 {1, 2, 4, 7, ..., 16, [28], ..., 98}
|
|
|
数学
|
nn=75；c[_]：=错误；
rad[x_]：=rad[x]=倍@FactorInteger[x][[All，1]]；
f[x_]：=选择[Range[x]，Divisible[x，rad[#]]&]；
数组[Set[{a[#]，c[#]}，{#，True}]&，2]；s=a[1]+a[2]；
收割[Do[r=f[s]；k=选择第一项[r，！c[#]&]；
母猪[FirstPosition[r，k][[1]]；c[k]=正确；
s+=k，{i，3，nn}][[-1，1]]
|
|
|
交叉参考
|
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
