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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A145990型 开始一段长度至少为2的连续素数==1(mod 4)的素数。 7
13、37、89、109、193、229、277、313、349、389、449、509、613、661、701、757、797、853、877、929、997、1093、1109、1193、1237、1297、1373、1429、1489、1549、1597、1609、1637、1669、1709、1733、1789、1873、1889、1933、1993、2069、2113、2137、2153、2213、2269 (列表图表参考历史文本内部格式)
抵消
1,1
参考文献
Enoch Haga,《探索PC和互联网上的初级读物》,1994-2007年,第30-31页。国际标准图书编号978-1-885794-24-6
链接
哈维·P·戴尔,n=1..1000时的n,a(n)表
例子
a(1)=13,因为该序列包括任意长度的连续运行,并且在运行2中的第一项>1是13。
MAPLE公司
我从2岁到300岁
如果(ithprime(i)mod 4)=1且ithprime
printf(“%d,”,ithprime(i));
结束条件:;
结束do:#R.J.马塔尔2011年9月30日
数学
素数[#+1]和/@(SequencePosition[Table[If[Mod[n,4]==1,1,0],{n,Prime[Range[350]]}],{0,1,1},Overlaps->False][[All,1]])(*需要Mathematica版本10或更高版本*)(*哈维·P·戴尔2017年8月2日*)
黄体脂酮素
(UBASIC)
10'簇底漆
20摄氏度=1
30输入“end#”;
40,对于N=3至L步骤2
50 S=整数(平方英尺(N))
A=3至S步骤2为60
70 B=不适用
80如果int(B)*A=N,则取消:转到170
90下一个A
100摄氏度=摄氏度+1
110 E=N/4:E=int(E):R=N-(4*E)
120如果R=1,则打印N;:C1=C1+1:T1=T1+1:打印T1
130,如果R=3,则T1=0
140如果R=3,则打印“”;N、 :C3=C3+1:T2=T2+1:打印T2
150,如果R=1,则T2=0
160如果T1>10或T2>10,则停止
170下一个
180打印“总素数=”;C、 :打印“A型”;C1;“B型”;C3类
交叉参考
关键词
容易的,非n
作者
伊诺克·哈加,2008年10月26日
扩展
更正和扩展人哈维·P·戴尔2017年8月2日
状态
经核准的

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

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

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