|
| |
|
| A325236型 |
| 无平方k，使得φ（k）/k-1/2为正，并且对于gpf（k）=素数（n）的k是最小的。 |
|
2
|
|
|
|
1, 2, 3, 15, 21, 231, 273, 255, 285, 167739, 56751695, 7599867, 3829070245, 567641679, 510795753, 39169969059, 704463969, 3717740976339, 42917990271, 547701649495, 45484457928390429, 59701280265935165
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
0,2
|
|
|
评论
|
有2^（n-1）个数k，gpf（k）=素数（n），因为我们只能有p_i^0或p_i*1，其中p_i|k和i<=n。例如，对于n=2，只有2个无平方数k，素数（2）=3是最大素数因子。它们是3=2^0*3^1和6=2^1*3^1。我们观察到，我们可以将素数的多重性写成A067255美元（k） ，因此，对于该示例，导出3=“0,1”和6=“1,1”。因此，对于n=3，我们有5=“0,0,1”、15=“0,1,1”，10=“1,0,1“和30=“1,1,1”。这就确定了k相对于n的可能值。我们选择了φ（k）/k-1/2为正且最小的n中k的值。
除了a（1）=2之外，所有项都是奇数。对于n>1和k偶数，φ（k）/k-1/2为负。
|
|
|
链接
|
|
|
|
例子
|
此序列的第一个术语出现在下表中的星号之间。
n的值出现在标题中，k的值后面加上phi（k）/k出现在n列中。x轴根据primepi（gpf（k））绘制k，而y轴根据phi（k）/k绘制k：
0 1 2 3 4
. . . . .
-- *1* -----------------------------------------------
(1/1) . . . .
. . . . .
. . . . .
. . . . 7
。5 (6/7)
. . . (4/5) .
. . . . .
. . . . 35
*3* . (24/35)
. . (2/3) . .
。
. . . . .
. . . . *21*
. . . . （4/7）
. . . *15* .
. . . (8/15) .
. *2* . . .
----------(1/2)---------------------------------------
. . . . .
. . . . 105
. . . . (16/35)
. . . . 14
. . . 10 (3/7)
. . . (2/5) .
. . . . .
. . . . 70
. . 6 . (12/35)
. . (1/3) . .
. . . . 42
. . . 30 (2/7)
. . . (4/15) .
。210
. . . . (8/35)
...
a（3）=15，原因如下。n=3时，k有4个可能值。它们分别是5、15、10和30，其中phi（k）/k=4/5、8/15、2/5和4/15。从后一个值中减去1/2，我们分别得出3/10、1/30、-1/10和-7/30。由于这些差异中最小的是与k=15相关的3/10，因此a（3）=15。
|
|
|
数学
|
使用[{e=15}，Map[MinimalBy[#，If[#<0，#+1，#]&[#[2]]-1/2]&]&，SplitBy[#1，Last]]&@Array[{#2，EulerPhi[#2]/#2，If[！IntegerQ@#，0，#]&[1+Floor@Log2@#1]}&@@{#，Times@@MapIndexed[Prime[First@#2]^#1&，Reverse@IntegerDigits[#，2]}&，2^（e+1），0]][[全部，1，1]]
|
|
|
交叉参考
|
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
