登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)

修订历史记录A007374号

(带下划线的文本是附加;删除线文本是删除

显示条目1-10|较旧的更改
A007374号 最小的k使得φ(x)=k正好有n个解。
(历史;已发布版本)
#52通过乔格·阿恩特2020年9月3日星期四01:56:28 EDT
数据

101, 2, 4, 8, 12, 32, 36, 40, 24, 48, 160, 396, 2268, 704, 312, 72, 336, 216, 936, 144, 624, 1056, 1760, 360, 2560, 384, 288, 1320, 3696, 240, 768, 9000, 432, 7128, 4200, 480, 576, 1296, 1200, 15936, 3312, 3072, 3240, 864, 3120, 7344, 3888, 720, 1680, 4992

抵消

2,12

数学

a=表[0,{10^5}];Do[s=EulerPhi[n];如果[s<100001,a[[s]]++],{n,1,10^6}];执行[k=21; 而[a[[k]]!=n、 k++];打印[k],{n,2,75}]

(*备用程序*)

t1=表[{k,FindInstance[EulerPhi[n]==k&&1<n<30000,n,整数,50]},{k,2,5000,2}];

t2=转座[{t1[[全部,1]],长度/@t1[[所有,2]]}];

t3=排序[反向/@t2];

表[First[Select[t3,#[[1]]==k&]],{k,2,32}][[All,2]](*霍斯特·H·曼宁格2020年9月1日*)

关键词

非n,容易的,美好的,改变

状态

编辑

经核准的

#51通过乔格·阿恩特2020年9月1日星期二04:21:01 EDT
状态

提出

编辑

讨论
9月1日星期二 04:31
霍斯特·H·曼宁格好的,现在我明白你的意思了。是的,是我的错。
2003年9月4日 01:56
乔格·阿恩特:好,正在恢复。
#50通过米歇尔·马库斯2020年9月1日星期二01:35:52 EDT
状态

编辑

提出

讨论
9月1日星期二 02:57
乔格·阿恩特:你误解了定义。
#49通过米歇尔·马库斯2020年9月1日星期二01:32:25 EDT
数学

(*备用程序*)

t1=表格[{k个,查找实例[EulerPhi公司[n个] ==k个&&1<n个<30000,n个,整数,50]}, {k个,,2,5000,2}];

FindInstance[EulerPhi[n]==k&&1<n<30000,n,整数,

50]},{k,25000,2}];

表[First[Select[t3,#[[1]]=k&]],{k,2,32}][All,2]] (*_]] (* _霍斯特·H·曼宁格,2020年9月1日*)

讨论
9月1日星期二 01:35
米歇尔·马库斯:phi(1)=phi(2)=1,所以我不明白为什么要替换a(2)=1?
#48个通过米歇尔·马库斯2020年9月1日星期二美国东部夏令时01:30:43
数学

表[First[Select[t3,#[[1]]==k&]],{k,2,32}][[All,2]] *(_]] (*_霍斯特·H·曼宁格,2020年9月1日)**)

状态

提出

编辑

#47通过霍斯特·H·曼宁格2020年9月1日星期二01:29:20 EDT
状态

编辑

提出

#46通过霍斯特·H·曼宁格2020年9月1日星期二01:29:16 EDT
数学

t1=表格[{k,

FindInstance[EulerPhi[n]==k&&1<n<30000,n,整数,

50]},{k,25000,2}];

t2=转座[{t1[[全部,1]],长度/@t1[[所有,2]]}];

t3=排序[反向/@t2];

表[First[Select[t3,#[[1]]==k&]],{k,2,32}][[All,2]]*(霍斯特·H·曼宁格2020年9月1日)*

状态

提出

编辑

#45通过霍斯特·H·曼宁格2020年9月1日星期二01:21:06 EDT
状态

编辑

提出

#44通过霍斯特·H·曼宁格2020年9月1日星期二美国东部夏令时01:16:14
数据

110, 2, 4, 8, 12, 32, 36, 40, 24, 48, 160, 396, 2268, 704, 312, 72, 336, 216, 936, 144, 624, 1056, 1760, 360, 2560, 384, 288, 1320, 3696, 240, 768, 9000, 432, 7128, 4200, 480, 576, 1296, 1200, 15936, 3312, 3072, 3240, 864, 3120, 7344, 3888, 720, 1680, 4992

抵消

2,21

讨论
9月1日星期二 01:20
霍斯特·H·曼宁格:第一个数字是错误的,因为φ[11]=φ[22]=10。通过修正起始值k=2,一切都很好。还应检查参考序列!
#43通过霍斯特·H·曼宁格2020年9月1日星期二01:15:01 EDT
数学

a=表[0,{10^5}];Do[s=EulerPhi[n];如果[s<100001,a[[s]]++],{n,1,10^6}];执行[k=12; 而[a[[k]]!=n、 k++];打印[k],{n,2,75}]

状态

经核准的

编辑

查找|欢迎光临|维基|注册|音乐|地块2|Demos公司|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人员OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间:美国东部夏令时2024年3月28日18:04。包含371254个序列。(在oeis4上运行。)