搜索: a362183-识别码:a362183
|
|
|
|
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 13, 14, 16, 17, 21, 23, 25, 26, 27, 31, 33, 34, 37, 38, 45, 49, 54, 59, 62, 64, 71, 80, 81, 84, 92, 99, 106, 122, 137, 145, 147, 167, 174, 180, 183, 203, 211, 231, 232, 251, 253, 283, 289, 306, 318, 342, 362, 378, 410, 412, 453
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
链接
|
|
|
配方奶粉
|
|
|
数学
|
ucototient[n_]:=n-倍@@(幂@@@FactorInteger[n]-1);ucototient[1]=0;使用[{max=300},solnum=Table[0,{n,1,max}];做[如果[(i=ucototient[k])<=max,solnum[[i]]++],{k,2,max^2}];s={1};solmax=1;做[sol=solnum[[k]];如果[sol>solmax,solmax=sol;AppendTo[s,sol]],{k,2,max}];秒]
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
已批准
|
|
|
|
|
|
|
0、0、1、0、2、1、2、1、3、1、3、2、3、3、4、3、3、3、4、4、3、3、4、4、4、4、5、3、4、5、5、5、5、5、3、3、3、3、3、5、5、5、5、4、6、6、4、6、6、2、7、4、6、4、6、3、7、3、5、4、6、3、8、2、6、7、4、4、6、7、3,9,4,7,4,5,5,9,6,9,4,7,3
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
2,5
|
|
评论
|
|
|
链接
|
|
|
配方奶粉
|
|
|
数学
|
ucototient[n_]:=n-倍@@(幂@@@FactorInteger[n]-1);ucototient[1]=0;使用[{max=100},ucot=表[ucototient[n],{n,1,max^2}];表[长度[位置[ucot,n]],{n,2,max}]//展平]
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
已批准
|
|
|
|
|
|
|
1, 6, 12, 24, 48, 96, 144, 240, 288, 480, 576, 720, 1152, 1440, 2880, 4320, 5760, 8640, 11520, 17280, 34560, 51840, 69120, 103680, 120960, 172800, 207360, 241920, 345600, 362880, 414720, 483840, 725760, 967680, 1209600, 1451520, 1935360, 2419200, 2903040, 3628800
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
评论
|
|
|
链接
|
|
|
数学
|
solnum[n_]:=长度[invIPhi[n]];seq[kmax_]:=模块[{s={},solmax=0},Do[sol=solnum[k];如果[sol>solmax,solmax=sol;附加到[s,k]],{k,1,kmax}];s] ;seq[10^4](*使用invIPhi函数A362484型*)
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
已批准
|
|
|
搜索在0.006秒内完成
|