登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A212710型 最小的数k,使得k^2+1的最大素数除数与其他素数不同除数之和的差值等于n。 1
411, 1, 3, 447, 2, 57, 212, 8, 307, 13, 5, 38, 319, 99, 3310, 70, 4, 242, 132, 50, 73, 17, 192, 12, 133, 3532, 41, 22231, 999, 43, 172, 68, 83, 11878, 294, 30, 6, 111, 9, 776, 2059, 922, 818, 46, 1183, 23, 216, 182, 557, 2010, 1818, 3323, 945, 512, 568, 76 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,1
链接
例子
a(1)=411,因为411^2+1=2*13*73*89和89-(2+13+73)=89-88=1。
MAPLE公司
A212710型:=进程(n)
局部fs、gpf、opf、k;
从1到k
fs:=数量[系数集](k^2+1);
gpf:=最大值(op(fs));
opf:=添加(f,f=fs)-gpf;
如果gpf-opf=n,则
返回k;
结束条件:;
结束do:
结束进程:
序列号(A212710型(n) ,n=1..50)#R.J.马塔尔2014年11月14日
数学
lst={};Do[k=1;[While[!2*FactorInteger[k^2+1][[-1,1]]-总计[Transpose[FactorIntiger[k_2+1]][[1]]==n,k+]];附加到[lst,k],{n,0,60}];第一次(*米歇尔·拉格诺2014年10月28日*)
程序
(PARI)a(n)={k=1;ok=0;while(!ok,f=因子(k+2+1);nbp=#f~;ok=(f[nbp,1]-sum(i=1,nbp-1,f[i,1])==n);if(!ok,k++););k;}\\米歇尔·马库斯2014年11月9日
交叉参考
囊性纤维变性。A182011号,A014442号,A193462号.
关键词
非n
作者
米歇尔·拉格诺2012年5月24日
状态
已批准

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

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

最后修改时间:美国东部时间2024年4月25日05:49。包含371964个序列。(在oeis4上运行。)