搜索: a348346-编号:a348345
|
|
|
|
44, 75, 98, 116, 147, 171, 242, 243, 244, 332, 387, 507, 548, 603, 604, 724, 735, 819, 844, 908, 931, 963, 1035, 1075, 1083, 1196, 1251, 1274, 1275, 1324, 1412, 1449, 1467, 1556, 1587, 1665, 1675, 1772, 1924, 1925, 1952, 1988, 2324, 2331, 2511, 2523, 2524, 2540
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
评论
|
|
|
链接
|
|
|
例子
|
|
|
数学
|
nid[1]=0;nid[n_]:=DivisorSigma[0,n]-倍@@Flatten[2^DigitCount[#,2,1]&/@FactorInteger[n][[;;,2]]];选择[范围[2500],(nid1=nid[#])>0&&nid1==nid[#1]&]
|
|
程序
|
(平价)
A348341(n) =(numdiv(n)-因子回复(适用(a->2^hammingweight(a),因子(n)[,2]));
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
7380, 18755, 24804, 25631, 26299, 27467, 32799, 44891, 49196, 49725, 50940, 53603, 59652, 64386, 71027, 79739, 85788, 89300, 94275, 103212, 105056, 105875, 124992, 129348, 132011, 138060, 141899, 147100, 149435, 155484, 158147, 164196, 170324, 175571, 181620, 184283
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
评论
|
|
|
链接
|
|
|
数学
|
f[p_,e_]:=p^(2^(-1+位置[Reverse@IntegerDigits[e,2],_?(#==0&)]);s[1]=1;s[n_]:=s[n]=倍@@(展平@(f@@@FactorInteger[n])+1);
选择[范围[10^5],(s1=s[#])>1&&s1==s[#1]&]
|
|
程序
|
(PARI)s(n)={my(f=因子(n),k);prod(i=1,#f~,k=应用(x->1-x,二进制(f[i,2])
列表a(kmax)={my(s1=s(1),s2);对于(k=2,kmax,s2=s(k));如果(s1>1&&s1==s2,打印1(k-1,“,”);s1=s2)
|
|
交叉参考
|
|
|
关键词
|
非n,新的
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
|
抵消
|
1,2
|
|
评论
|
a(9)>1.6*10^11(如果存在)。
|
|
链接
|
|
|
例子
|
|
|
数学
|
esigma[n_]:=次数@@(总和[First[#]^d,{d,Divisors[Last[#]]}]&)/@FactorInteger[n];s[1]=1;s[n_]:=除数Sigma[1,n]-esigma[n];选择[范围[50000],s[#]=s[#+1]&]
|
|
交叉参考
|
|
|
关键词
|
非n,更多
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
搜索在0.006秒内完成
|