OEIS哀悼西蒙斯感谢西蒙斯基金会支持包括OEIS在内的许多科学分支的研究。
登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A198472号 如果4|q(n)-2,则a(n)=q(n。 1
2, 2, 2, 6, 6, 4, 4, 6, 6, 8, 6, 18, 8, 18, 8, 18, 18, 10, 10, 12, 12, 14, 12, 30, 14, 30, 14, 30, 30, 16, 16, 18, 18, 20, 18, 42, 20, 42, 20, 42, 42, 54, 24, 24, 28, 54, 24, 28, 30, 54, 28, 32, 54, 28, 28, 30, 30, 32, 30, 66, 32, 66, 32, 66, 66, 78, 36, 36, 40, 78, 36, 40, 42, 78, 40, 44, 78, 40, 40, 42, 42, 44, 42, 90, 44, 90, 44, 90, 90, 52, 48, 48, 50, 50, 48, 52, 50, 54, 50, 56 (列表;图表;参考;;历史;文本;内部格式)
偏移
1,1
评论
猜想:如果b(1)>=4是一个整数,并且b(k+1)=a(b(k))对于k=1,2,3,。。。,则b(n)=4,对于某些n>0。
这个猜想与科拉茨猜想的味道相同。
链接
G.梅尔菲,关于实用数的两个猜想,J.数论56(1996)205-210[MR96i:11106型].
例子
a(20)=12,因为2(20+1)=24+18,24和18都是实用的。
数学
f[n_]:=f[n]=系数整数[n]
Pow[n_,i_]:=Pow[n,i]=部件[部件[f[n],i],1]^
Con[n_]:=Con[n]=总和[If[Part[Part[f[n],s+1],1]<=DivisorSigma[1,Product[Pow[n,i],{i,1,s}]]+1,0,1],{s,1,Length[f[n]]-1}]
pr[n]:=pr[n]=n>0&&(n<3||Mod[n,2]+Con[n]==0)
Do[Do[If[pr[2k]==True&&pr[2n+2-2k]==True,打印[n,“”,2k/(1+Mod[k-1,2])];后藤[aa]],{k,上限[(n+1)/2],n}];
标签[aa];继续,{n,1100}]
黄体脂酮素
(PARI)1984年12月(n) =步骤(q=n++位测试(n,0),9e9,2,为_A005153号(q) &&是_A005153号(2*n-q)&&返回(如果(q%4,q,q\2))\\M.F.哈斯勒2013年2月27日
交叉参考
关键词
非n
作者
孙志伟2013年2月27日
状态
经核准的

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间:美国东部夏令时2024年6月18日17:37。包含373483个序列。(在oeis4上运行。)