|
| |
|
| 2008年7月13日 |
| 考虑数字k，使得φ（x）=k正好有3个解，它们是（3*p，4*p，6*p），其中p是1或素数。序列给出p的值。 |
|
5
|
|
|
|
1, 23, 29, 47, 53, 59, 71, 83, 103, 107, 131, 149, 167, 173, 179, 191, 197, 223, 227, 239, 263, 269, 283, 293, 311, 317, 347, 359, 373, 383, 389, 419, 431, 443, 467, 479, 491, 503, 509, 557, 563, 569, 587, 599, 643, 647, 653, 659, 677, 683, 709, 719
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,2
|
|
|
评论
|
这个序列中的素数被Stolarski和Greenbaum称为2的素数复制子，（3，4，6）是φ（x）=2的解-米歇尔·马库斯2012年10月20日
此序列中的质数乘以2等于k+2。例如，83*2=164+2-托拉赫·拉什2018年6月16日
|
|
|
链接
|
K.B.Stolarski和S.Greenbaum，与φ（x）相关的比率=n《斐波纳契季刊》，第23卷，第3期，1985年8月，第265-269页。
|
|
|
例子
|
83是一个术语，因为φ（x）=164的三个解（249332498）可以写成（3*83，4*83，6*83）。
|
|
|
数学
|
t=表[EulerPhi[n]，{n，1，5000}]；u=并集[Select[t，Count[t，#]==3&]]；a={}；Do[k=1；While[EulerPhi[3k]！=u[[n]]，k++]；附加到[a，k]，{n，1，60}]；排序[a]
|
|
|
黄体脂酮素
|
（哈斯克尔）
导入数据。列表。已订购（插入袋子）
导入数据。列表（groupBy）；导入数据。功能（打开）
a085713 n=a085713_列表！！（n-1）
a085713_list=1:r yx3ss其中
r（ps:pss）|a010051'cd==1&&
映射（翻转div cd）ps==[3，4，6]=cd:r pss
|否则=r pss，其中cd=foldl1 gcd ps
yx3ss=过滤器（==3）。长度）$
map（map snd）$groupBy（（==）`on`fst）$
f[1..]a002110_list[]
其中f是“@（i:is）ps”@（p:ps）yxs
|i<p=f是ps'$insertBag（a000010'i，i）yxs
|否则=yxs'++f为'ps-yxs'
其中（yxs'，yxs'）=span（（<=a000010'i）。fst）yxs
|
|
|
交叉参考
|
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
