|
| |
|
| A293184型 |
| 对k进行编号，使bphi（k）=bphi(A116550型). |
|
7
|
|
|
|
1, 14, 20, 57, 187, 188, 916, 1603, 93928, 142891, 432976, 549815, 692259, 773887, 872191, 4297168, 9478088, 127162432, 127991488, 129015616, 132527167
(列表；图表；参考；听；历史；文本；内部格式)
|
|
|
|
偏移
|
1,2
|
|
|
评论
|
187是第一个解决bphi（k）=bphi。
|
|
|
链接
|
|
|
|
例子
|
14是按照顺序排列的，因为bphi（14）=bphi（15）=9。
|
|
|
数学
|
bphi[1]=1；bphi[n_]：=使用[{pp=Power@@@FactorInteger[n]}，计数[Range[n]，m_/；交集[pp，幂@@@FactorInteger[m]]=={}]]；a={}；b1=0；Do[b2=bphi[k]；如果[b1==b2，a=AppendTo[a，k-1]]；b1=b2，{k，1，10^3}]；a（*之后Jean-François Alcover公司在A116550型*)
|
|
|
黄体脂酮素
|
（PARI）udivs（n）={my（d=除数（n））；选择（x->（gcd（x，n/x）==1），d）；}
gcud（n，m）=vecmax（setintersect（udivs（n），udives（m）））；
biuphi（n）=如果（n==1，1，和（k=1，n-1，gcud（n，k）==1））；
isok（n）=biuphi（n）==biupshi（n+1）；
列表（nn）={x=biuphi（1）；对于（n=2，nn，y=biupshi（n）；如果（x==y，打印1（n-1，“，”））；x=y；）；}\\米歇尔·马库斯，2017年11月9日
|
|
|
交叉参考
|
|
|
|
关键词
|
非n,更多
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
