|
|
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
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|