搜索: a034460-编号:a0344600
|
|
|
|
0, 1, 1, 0, 1, 6, 1, -2, -2, 8, 1, 4, 1, 10, 9, -6, 1, 3, 1, 4, 11, 14, 1, 0, -9, 16, -11, 4, 1, 42, 1, -14, 15, 20, 13, -5, 1, 22, 17, -4, 1, 54, 1, 4, -3, 26, 1, -8, -20, -2, 21, 4, 1, -6, 17, -8, 23, 32, 1, 36, 1, 34, -7, -30, 19, 78, 1, 4, 27, 74, 1, -21, 1, 40, -11, 4, 19, 90, 1, -20, -38, 44, 1, 44, 23, 46, 33, -16, 1, 36, 21, 4
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,6
|
|
评论
|
问题:n=1、4、24、240、349440(A325963型)这个序列中唯一的零位置?
|
|
链接
|
|
|
配方奶粉
|
求和{k=1..n}a(k)~c*n^2,其中c=(zeta(2)/zeta(3)-1)/4=0.0921081944-阿米拉姆·埃尔达尔2024年2月22日
|
|
数学
|
|
|
程序
|
(PARI)
|
|
交叉参考
|
囊性纤维变性。A033879美元,A034448号,A034460号,A048250型,A306633型,A325313型,A325963型,A325973型,A325974型,A325975型,352578英镑,A325979型,A325981型.
|
|
关键词
|
签名
|
|
作者
|
|
|
状态
|
已批准
|
|
|
|
|
A097032美元
|
| 单位-单位-偏差-和函数f(x)的瞬态和终端周期的总长度=A034460号(x) 迭代,初始值为n。迭代列表中不同项的数量,如果迭代没有在一个循环中结束,还包括计数中的终端0。 |
|
+20 10
|
|
|
2, 3, 3, 3, 3, 1, 3, 3, 3, 4, 3, 4, 3, 5, 4, 3, 3, 5, 3, 5, 4, 6, 3, 5, 3, 4, 3, 5, 3, 3, 3, 3, 5, 6, 4, 6, 3, 7, 4, 6, 3, 3, 3, 4, 5, 5, 3, 6, 3, 6, 5, 6, 3, 3, 4, 4, 4, 4, 3, 1, 3, 7, 4, 3, 4, 3, 3, 7, 4, 8, 3, 6, 3, 7, 4, 6, 4, 2, 3, 7, 3, 5, 3, 7, 4, 6, 6, 6, 3, 1, 5, 6, 5, 7, 4, 7, 3, 7, 5, 4, 3, 3, 3, 7, 7
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
链接
|
|
|
配方奶粉
|
|
|
例子
|
对于n=1506,迭代列表是{1506、1518、1938、2382、2394、2406、[2418、2958、3522、3534、4146、4158、3906、3774、4434、4446、3954、3966、3978、3582、2418,…,无穷大]}。在长度为6的瞬态之后,迭代以长度为14的循环结束,因此a(1506)=6+14=20。
|
|
数学
|
a034460号[0] = 0; (*避免在迭代达到0*时除以0)
a034460号[n_]:=总计[Select[Divisors[n],GCD[#,n/#]==1&]]-n/;n> 0个
a097032[n_]:=映射[Length[NestWhileList[a034460型,#,UnsameQ,All]]-1&,范围[n]]
|
|
程序
|
(PARI)
A097032号(n) ={my(visited=Map());对于(j=1,oo,if(mapisdefined(visited,n),return(j-1),mapput(visitted,n,j));n=A034460号(n) ;如果(!n,返回(j+1));}\\安蒂·卡图恩2018年9月23日
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
扩展
|
|
|
状态
|
已批准
|
|
|
|
|
|
|
0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1
|
|
评论
|
|
|
链接
|
|
|
配方奶粉
|
|
|
数学
|
a034460号[0] = 0; (*避免在迭代达到0*时除以0)
a034460型[n_]:=总计[Select[Divisions[n],GCD[#,n/#]==1&]]-n/;n> 0个
periodicB[k_]:=布尔[NestWhile[a034460型,k,UnsameQ,All]=0]
a318880[n_]:=映射[periodicB,范围[n]]
|
|
程序
|
(PARI)
A318880型(n) ={my(visited=Map());对于(j=1,oo,if(mapisdefined(visited,n),return(1),mapput(visitted,n,j));n=A034460号(n) ;如果(!n,返回(0));};
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
已批准
|
|
|
|
|
|
|
1、2、3、4、5、7、8、9、10、11、12、13、14、15、16、17、18、19、20、20,还
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
评论
|
|
|
链接
|
|
|
数学
|
di[x_]:=除数[x];ta={{0}};ud[x_]:=零件[di[x],压扁[位置[GCD[di[x],反向[di[x]],1]];asu[x_]:=应用[Plus,ud[x]]-x;nsf[x_,ho_]:=嵌套列表[asu,x,ho]执行[g=n;s=最后一个[NestList[asu、n,100]];如果[Equal[s,0],打印[{n,s}];ta=附加[ta,n]],{n,1256}];ta=删除[ta,1]
|
|
程序
|
(PARI)
up_to=10000;
A318880型(n) ={my(visited=Map());对于(j=1,oo,if(mapisdefined(visited,n),return(1),mapput(visitted,n,j));n=A034460号(n) ;if(!n,return(0));};
A097010list(up_to)={my(v=向量(up_tto),k=0,n=1);while(k<up_to,if(!A318880型(n) ,k++;v[k]=n);n++);(v) ;};
v097010=A097010列表(up_to);
|
|
交叉参考
|
囊性纤维变性。A002827号,A034460号,A063991号,A097024号,A097030号,A097031号,A097032号,A097033号,A097034号,A097035号,A097036号,A097037美元.
|
|
关键词
|
非n
|
|
作者
|
|
|
扩展
|
|
|
状态
|
已批准
|
|
|
|
|
|
|
1, 2, 2, 2, 2, 0, 2, 2, 2, 3, 2, 3, 2, 4, 3, 2, 2, 4, 2, 4, 3, 5, 2, 4, 2, 3, 2, 4, 2, 0, 2, 2, 4, 5, 3, 5, 2, 6, 3, 5, 2, 0, 2, 3, 4, 4, 2, 5, 2, 5, 4, 5, 2, 0, 3, 3, 3, 3, 2, 0, 2, 6, 3, 2, 3, 2, 2, 6, 3, 7, 2, 5, 2, 6, 3, 5, 3, 1, 2, 6, 2, 4, 2, 6, 3, 5, 5, 5, 2, 0, 4, 5, 4, 6, 3, 6, 2, 6, 4, 1, 2, 1, 2, 6, 6
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
链接
|
|
|
配方奶粉
|
|
|
例子
|
对于n=1,A034460号(1) =0,也就是说,我们在长度为1的瞬态部分之后结束到终端0,因此a(1)=1。
对于n=1506,迭代列表是{1506、1518、1938、2382、2394、2406、[2418、2958、3522、3534、4146、4158、3906、3774、4434、4446、3954、3966、3978、3582、2418,…,无穷大]}。在长度为6的瞬态之后,迭代以长度为14的循环结束,因此a(1506)=6。
|
|
数学
|
a034460型[0] = 0; (*避免在迭代达到0*时除以0)
a034460型[n_]:=总计[Select[Divisions[n],GCD[#,n/#]==1&]]-n/;n> 0个
transient[k_]:=模块[{iter=NestWhileList[a034460型,k,UnsameQ,All]},位置[iter,Last[iter]][[1,1]]-1]
a097033[n_]:=地图[瞬态,范围[n]]
|
|
程序
|
(PARI)
A097033号(n) ={my(visited=Map());对于(j=1,oo,if(mapisdefined(visited,n),return(mapget(visitted,n)-1),mapput(visitated,n,j));n=A034460号(n) ;如果(!n,返回(j));}\\安蒂·卡图恩2018年9月23日
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
扩展
|
|
|
状态
|
已批准
|
|
|
|
|
|
|
0, 0, 0, 0, 1, 0, 2, 1, 2, 1, 3, 1, 3, 2, 3, 3, 2, 2, 3, 3, 4, 3, 2, 3, 3, 3, 4, 4, 3, 3, 3, 5, 4, 5, 4, 5, 2, 4, 4, 5, 4, 5, 3, 5, 5, 5, 2, 6, 3, 6, 4, 6, 3, 7, 3, 6, 4, 5, 3, 7, 3, 5, 4, 6, 2, 8, 2, 6, 5, 7, 2, 8, 4, 6, 7, 7, 4, 9, 2, 7, 4, 5, 4, 9, 3, 9
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
2.7个
|
|
评论
|
|
|
链接
|
|
|
配方奶粉
|
|
|
例子
|
a(8)=2,因为8是10(1+2+5)和12(1+3+4)的适当幺正因子之和。
|
|
数学
|
us[1]=0;us[n_]:=倍@@(1+Power@@@FactorInteger[n])-n;m=100;v=表[0,{m}];做[u=us[k];如果[2<=u<=m,v[[u]]++],{k,1,m^2}];休息@v
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
已批准
|
|
|
|
|
|
|
477, 3725, 29161, 107797, 166753, 205409, 500837, 535277, 780625, 1610389, 5649841, 6968125, 10292809, 10633429, 24231241, 32771201, 38322857, 40028661, 104861501, 170384117, 183593125, 277405641, 326081953, 488265625, 491716541, 704531953, 797338489, 836737393, 2053219321, 2359421369, 3012238153
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
评论
|
如果存在任何奇数完全数,那么它必须出现在这个序列中。
|
|
链接
|
|
|
程序
|
(PARI)
isA228058(n)=如果(!(n%2)||(ω(n)<2),0,my(f=因子(n),y=0);对于(i=1,#f~,如果(1==(f[i,2]%4),如果((1==y)||(1!=(f[2,1]%4)),返回(0),y=1),如果;(y) );
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
已批准
|
|
|
|
|
|
|
15, 23, 27, 55, 39, 39, 47, 51, 87, 43, 63, 71, 127, 63, 83, 55, 99, 67, 175, 107, 111, 63, 119, 123, 67, 95, 147, 79, 159, 99, 167, 79, 295, 87, 183, 135, 191, 203, 207, 367, 87, 99, 91, 139, 239, 243, 251, 795, 115, 267, 111, 279, 123, 287, 127, 291, 103, 303, 535, 135, 323, 139, 327, 187, 715, 111, 119, 347, 359, 363, 123, 383
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
链接
|
|
|
配方奶粉
|
|
|
程序
|
(PARI)
up_to=10000;
isA228058(n)=如果(!(n%2)||(ω(n)<2),0,my(f=因子(n),y=0);对于(i=1,#f~,如果(1==(f[i,2]%4),如果((1==y)||(1!=(f[2,1]%4)),返回(0),y=1),如果;(y) );
A228058列表(up_to)={my(v=向量(up_tto),k=0,n=0);while(k<up_to,n++;if(isA228058(n),k++;v[k]=n));(v);};
v228058=A228058列表(up_to);
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
已批准
|
|
|
|
|
|
|
6, 9, 11, 13, 128, 150, 164, 222, 224, 332, 338, 390, 404, 416, 420, 458, 510, 548, 558, 570, 576, 582, 584, 598, 660, 668, 750, 788, 800, 810, 818, 822, 836, 852, 878, 884, 926, 930, 1046, 1118, 1200, 1202, 1230, 1244, 1250, 1260, 1284, 1298, 1304, 1382, 1422, 1472, 1478
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
评论
|
|
|
链接
|
|
|
配方奶粉
|
|
|
数学
|
us[1]=0;us[n_]:=倍@@(1+Power@@@FactorInteger[n])-n;m=1500;v=表[0,{m}];做[u=us[k];如果[2<=u<=m,v[[u]]++],{k,1,m^2}];位置[v,1]//展平
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
已批准
|
|
|
|
|
|
|
6, 15, 21, 35, 250, 138, 4192, 10048, 6112, 748, 20736, 5968, 802, 12256, 41728, 3592, 498, 53632, 8656, 80128, 2284, 2308, 36352, 2372, 10288, 5272, 11728, 84352, 1594, 630, 6472, 48448, 6616, 50368, 1426, 1762, 102016, 172288, 32416, 8872, 2328, 9544, 19408
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
链接
|
|
|
配方奶粉
|
|
|
数学
|
us[1]=0;us[n_]:=倍@@(1+Power@@@FactorInteger[n])-n;m=1500;v=s=表[0,{m}];做[u=us[k];如果[2<=u<=m,v[[u]]++;s[[u]]=k],{k,1,m^2}];s[[位置[v,1]//展平]]
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
已批准
|
|
|
搜索在0.024秒内完成
|