(带下划线的文本是附加;删除线文本是删除)
显示条目1-10|较旧的更改
|
|
|
|
#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}]
|
| 状态
|
经核准的
编辑
|
|
|
|
|