|
| |
| |
|
|
|
1, 6, 12, 24, 30, 60, 120, 180, 240, 360, 420, 720, 840, 1260, 1680, 2520, 4620, 5040, 7560, 9240
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1, 2
|
|
|
评论
|
这个序列给出了另一个“日益复杂”的数字列表。
|
|
|
链接
|
|
|
|
数学
|
b[s_]：=b[s]=如果[Length[s]<2，1，Sum[If[Length[Select[s，Mod[#，x]==0&]]==1，b[Complement[s，{x}]]，0]，{x，s}]]；a[n_]：=a[n]=模块[{l，m}，l=Sort[FactorInteger[n]，#1[[2]]>#2[2]]&]；m=乘积[素数[i]^l[[i]][[2]]，{i，1，长度[l]}]；b[除数[m]//Rest//Most]]；A119500个=收获[For[record=0；k=1，k<10^4，k++，ak=a[k]；如果[ak>record，record=ak；打印[k，“”，ak]；母猪[k]]][[2,1]](*Jean-François Alcover公司2016年3月3日之后阿洛伊斯·海因茨*)
|
|
|
交叉参考
|
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
