搜索: a064125-编号:a064126
|
|
|
|
14, 27, 44, 459, 620, 957, 1334, 1634, 1652, 2204, 2685, 3195, 3451, 3956, 5547, 8636, 8907, 9844, 11515, 11745, 16874, 19491, 20145, 20155, 27643, 31724, 33998, 38180, 41265, 41547, 42818, 45716, 48364, 64665, 74875, 74918, 79316, 79826, 79833, 83780, 84134
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
链接
|
|
|
例子
|
14位于序列中,因为bsigma(14)=bsigma。
|
|
数学
|
f[n_]:=选择[Divisors[n],函数[d,互质Q[d,n/d]]];bsigma[米]:=
除数总和[m,#&,最后一个@交叉点[f@#,f[m/#]]==1&];a={};b1=0;做[b2=bsigma[k];如果[b1==b2,a=AppendTo[a,k-1]];b1=b2,{k,1,10^6}];a(*之后迈克尔·德弗利格在A188999号*)
|
|
交叉参考
|
|
|
关键字
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
14, 27, 44, 459, 620, 957, 1334, 1634, 1652, 2204, 2685, 3195, 3451, 3956, 4064, 4544, 5547, 8495, 8636, 8907, 9844, 11515, 15296, 19491, 20145, 20155, 27643, 31724, 33998, 38180, 41265, 41547, 42818, 45716, 48364, 61964, 64665, 74875, 74918, 79316, 79826
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
评论
|
|
|
链接
|
|
|
例子
|
14处于序列中,因为isigma(14)=isigma。
|
|
数学
|
fun[p_,e_]:=模块[{b=整数位数[e,2]},m=长度[b];乘积[如果[b[[j]]>0,1+p^(2^(m-j)),1],{j,1,m}]];isigma[1]=1;isigma[n_]:=倍@@fun@@FactorInteger[n];aQ[n_]:=isigma[n]==isigma[n+1];选择[范围[1000],aQ]
|
|
交叉参考
|
|
|
关键字
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
2、3、4、186、318、434、473、582、730、978、1024、1035、1245、1357、1397、1506、1661、1902、2085、2116、2224、2329、2453、2505、2506、2770、2954、3144、3345、3377、3624、3641、3765、3790、3882、4037、4172、4438、4898、4938、4975、5221、6126、6285、6312、6356
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
链接
|
|
|
例子
|
|
|
数学
|
s[n_]:=除数和[n,#&,#<Sqrt[n]&];序列={};s1=0;Do[s2=s[n];如果[s1==s2,AppendTo[seq,n-1]];s1=s2,{n,2,6500}];序列
|
|
交叉参考
|
|
|
关键字
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
3、4、7、20、31、57、94、98、118、122、127、201、213、218、230、242、243、244、334、384、393、423、429、481、565、603、633、694、704、729、766、844、921、1138、1141、1221、1262、1401、1533、1654、1726、1761、1837、1838、1862、1882、1942、2162、2245、2361、2362
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
评论
|
|
|
链接
|
|
|
例子
|
|
|
数学
|
f[n_]:=除数和[n,数字计数[#,2,1]&];s={};f1=f[1];Do[f2=f[n];如果[f1==f2,则附加到[s,n-1]];f1=f2,{n,2,240}];秒
|
|
交叉参考
|
|
|
关键字
|
非n,基础
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
A164522号
|
| 对k进行编号,使sigma_odd(k)=sigma_add(k+1),其中sigma_0dd(k)是k的奇除数之和(A000593号). |
|
+10 5
|
|
|
1, 27089, 115289, 233729, 2529090, 2880989, 14059709, 17192909, 17540250, 18693990, 34902630, 54722249, 58517910, 82200689, 83087730, 92991990, 93623250, 93862230, 96578369, 111681990, 112244369, 155120129, 206450369, 269626769, 293182469, 303206310, 324764910
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
链接
|
|
|
例子
|
|
|
数学
|
f[p_,e_]:=如果[p==2,1,(p^(e+1)-1)/(p-1)];s[1]=1;s[1]=1;s[n_]:=倍@@(f@@@FactorInteger[n]);s1=0;序列={};Do[s2=s[n];如果[s2==s1,则附加到[seq,n-1]];s1=s2,{n,1,10^6}];序列
|
|
黄体脂酮素
|
(岩浆)v:=[&+[d:d in Divisors(m)|IsOdd(d)]:m in[1..5000000]];[1..#v-1]|v[k]eq v[k+1]]中的[k:k//马吕斯·A·伯蒂2019年8月12日
|
|
交叉参考
|
|
|
关键字
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
3, 6, 7, 10, 22, 31, 46, 58, 69, 82, 106, 127, 140, 154, 160, 166, 178, 226, 262, 286, 346, 358, 382, 466, 478, 502, 562, 586, 718, 748, 781, 838, 862, 886, 982, 1001, 1018, 1066, 1186, 1282, 1299, 1306, 1318, 1366, 1438, 1486, 1522, 1614, 1618, 1672, 1704, 1822
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
链接
|
|
|
例子
|
|
|
数学
|
f[p_,e_]:=如果[p==2,p^e,(p^(e+1)-1)/(p-1)];s[1]=1;s[1]=1;s[n_]:=倍@@(f@@@FactorInteger[n]);s1=0;序列={};Do[s2=s[n];如果[s2==s1,则附加到[seq,n-1]];s1=s2,{n,12000}];序列
|
|
黄体脂酮素
|
(岩浆)v:=[&+[d:d in Divisors(m)|IsOdd(Floor(m/d))]:m in[1..2000]];[1..#v-1]|v[k]eq v[k+1]]中的[k:k//马吕斯·A·伯蒂2019年8月12日
|
|
交叉参考
|
|
|
关键字
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
2, 3, 4, 7, 8, 16, 31, 127, 186, 256, 318, 434, 473, 574, 582, 588, 730, 735, 819, 978, 1245, 1357, 1374, 1397, 1420, 1421, 1500, 1506, 1661, 1694, 1902, 1956, 1988, 2059, 2085, 2147, 2166, 2329, 2453, 2505, 2506, 2534, 2754, 2770, 2868, 2954, 2988, 3345, 3377
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
链接
|
|
|
例子
|
|
|
数学
|
s[n_]:=除数和[n,#&,#^2<n&&互质[#,n/#]&];选择[范围[3000],s[#]=s[#+1]&]
|
|
交叉参考
|
|
|
关键字
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
14, 206, 957, 1334, 1364, 1485, 1634, 2685, 2974, 4136, 4364, 14841, 20145, 24957, 33998, 36566, 42818, 64672, 74918, 79826, 79833, 84134, 86343, 92685, 109864, 111506, 122073, 138237, 147454, 159711, 162602, 166934, 187863, 190773, 193893, 201597, 274533, 288765
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
链接
|
|
|
例子
|
|
|
数学
|
recDivQ[n_,1]=真;recDivQ[n_,d_]:=recDivQ[n,d]=可除[n,d_]&AllTrue[FactorInteger[d],recDivQ[IntegerExponent[n,First[#]],Last[#]]&];recDivs[n_]:=选择[Divisors[n],recDivQ[n,#]&];f[p_,e_]:=1+总计[p^recDivs[e]];recDivSum[1]=1;recDivSum[n_]:=倍@@(f@@@FactorInteger[n]);选择[Range[10^5],recDivSum[#]==recDivSam[#+1]&]
|
|
交叉参考
|
|
|
关键字
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
20150, 52767, 99296, 835515, 1241504, 2199392, 6294015, 11158496, 12770450, 17016416, 19127907, 20128544, 23686748, 24790688, 26580554, 33366015, 34385247, 39687651, 42106976, 44157087, 45466676, 59825349, 60832449, 73780244, 75268775, 81654650, 84696849, 111457213
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
评论
|
这些项被限制为具有非限定因子的正和,因为有许多连续的数字没有非限定因子(这些是A036537号).
|
|
链接
|
|
|
例子
|
|
|
数学
|
f[p_,e_]:=模块[{b=整数位数[e,2],m},m=长度[b];乘积[如果[b[[j]]>0,1+p^(2^(m-j)),1],{j,1,m}]];isigma[1]=1;isigma[n_]:=倍@@f@@FactorInteger[n];s[n_]:=除数Sigma[1,n]-isigma[n];选择[范围[10^5],(s1=s[#])>0&&s1==s[#1]&]
|
|
交叉参考
|
|
|
关键字
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
24, 60, 72, 180, 1440, 2160, 1872, 2640, 2400, 3000, 2880, 3024, 4320, 4320, 4320, 5280, 5280, 7400, 8640, 10080, 10200, 11520, 11880, 11520, 11088, 12960, 12096, 14400, 25920, 21600, 26640, 34560, 25200, 40320, 34560, 36000, 51840, 60480, 63360, 60480, 65280
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
评论
|
数n的幺正因子之和,使得n和n+1具有相同的和。
|
|
链接
|
|
|
公式
|
|
|
数学
|
usigma[n_]:=块[{d=除数[n]},加号@@Select[d,GCD[#,n/#]==1&]];a={};u1=0;对于[k=0,k<10^5,k++;u2=usigma[k];如果[u1==u2,a=AppendTo[a,u1]];u1=u2];一
|
|
交叉参考
|
|
|
关键字
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
搜索在0.012秒内完成
|