|
| |
| |
|
|
|
1, 18, 48, 54, 162, 384, 486, 1350, 1458, 2250, 2430, 3750, 6000, 6750, 7290, 11250, 12150, 14580, 15000, 15360, 18750, 21870, 30720, 33750, 36450, 37500, 43740, 56250, 61440, 65610, 93750, 122880, 168750
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
偏移
|
1,2
|
|
|
评论
|
|
|
|
链接
|
|
|
|
例子
|
a（1）＝1，因为1是空的乘积。
a（2）＝18，因为{12}是非除数k＜18，使得rad（k）＝rad（18）。
a（3）=48，因为{18，36}是非除数k<48，使得rad（k）=rad（48）。
a（4）=54，因为{12、24、36、48}是非除数k<54，使得rad（k）=rad（54）等。
表显示了a（n）=乘积p^e的素数分解，注意了π（p）-第个位置的重数e。例如，a（n）=1350=2*3^3*5^2，因此我们写1.3.2。
----------------------------------------
1 1 0 1 0
2 18 1.2 8 1
3 48 4.1 13 2
4 54 1.3 14 4
5 162 1.4 25 8
6 384 7.1 37 10
7 486 1.5 42 14
8 1350 1.3.2 65 16
9 1458 1.6 67 21
10 2250 1.2.3 81 23
11 2430 1.5.1 85 26
12 3750 1.1.4 99 33
...
|
|
|
数学
|
rad[n_]：=rad[n]=倍@@FactorInteger[n][[All，1]]；t=选择[Range[2^14]，Nor[SquareFreeQ[#]，PrimePowerQ[#]]&]；s=选择[t，#1/#2>=#3&@@{#1，Times@@#2，#2[2]]}&@@{#，FactorInteger[#][[All，1]]}&]；t=表[m=s[[n]]；r=拉德[m]；计数[TakeWhile[t，#<m&]，_？（和[rad[#]=r，Mod[m，#]！=0]&）]，{n，长度[s]}]；{1} ~加入~映射[s[[FirstPosition[t，#][1]]]&，联合@折叠列表[Max，t]]
|
|
|
交叉参考
|
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
