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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A139414号 a(x)=如果{4x^2-146x+1373,4x^2-144x+1459,4x*2-142x+1301,4x|2-140x+1877}中的一个是素数,则依次选取该素数。
1373, 1319, 1033, 1493, 853, 839, 593, 1093, 461, 487, 281, 821, 197, 263, 97, 677, 61, 167, 41, 661, 53, 199, 113, 773, 173, 359, 313, 1013, 421, 647, 641, 1381, 797, 1063, 1097, 1877, 1301, 1607, 2333, 1847, 1933, 2203, 2393, 3253, 2693, 3079, 3121, 4133 (列表;图表;参考文献;;历史;文本;内部格式)
抵消
1,1
评论
多项式在以t[1+mod[x,4]]开始的循环中进行测试,即当x==0 mod 4时,按照t1,t2,t3,t4的顺序进行测试;当x==1 mod 4时,按t2、t3、t4、t1等顺序进行测试。如果多项式都不是素数,则不给出任何值。[来自哈里·史密斯,2009年1月28日,2009年01月31日]
基于与奥尔德里奇·史蒂文斯的通信。
链接
Harry J.Smith,对该序列的评论
例子
最初的术语是{1,1373},{2,1319},}3,1033},[4,1493},5,853}。。。,{73, 11597}, {74, 12263}, {75, 12697}, {76, 13877}, {77, 13381}, {78, 14087}, {79, 14561}, {80, 15541}, {81, 15791}, {82, 16553}
数学
a={4x^2-146x+1373,4x^2-144x+1459,4x*2-142x+1301,4x|2-140x+1877};(*函数“if”切换多项式阶梯*)g[x_]:=if[PrimeQ[a[[1+Mod[x,4]]],a[[1+Mod[x、4]]],if[PrimeQ[a[[1+Mod[x+1,4]]]],a[[1+Mod[x+1,4]],if[PrimeQ[a[1+Mod[x+2,4]],a[1+Mod[x+2,4]]][x+3,4]]],a[[1+Mod[x+3,4]],a[1+Mod[x,4]]]]];压扁[Table[If[PrimeQ[g[x]],g[x],{}],{x,0500}]]长度[%]排序[Table[If[PrimeQ[g[x]],{x,g[x]},{}],{x,0500}]];
黄体脂酮素
(PARI){n=0;对于(x=0,12022,t=[4*x^2-146*x+11373,4*x*^2-144*x+1459,4*x^2-142*x+1301,4*x ^2-140*x+1877];对于(i=0,3,if(isprime(p=t[(x+i)%4+1]),打印(n++,“”p);写入(“b139414.txt”,“n,”“p);中断)))}
交叉参考
囊性纤维变性。A155814号.
关键字
非n
作者
罗杰·巴古拉2008年6月9日
扩展
阐明了序列的定义,并添加了PARI程序。哈里·史密斯,在的帮助下M.F.哈斯勒2009年1月31日
状态
经核准的

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

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

上次修改时间:2024年4月23日23:26 EDT。包含371917个序列。(在oeis4上运行。)