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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A186413号 a(n)是奇数素数p<prime(n)^2,使得素数(n)#+p是素数(n)#primarial的素数。 2
1, 2, 5, 8, 16, 18, 20, 28, 25, 30, 40, 46, 41, 53, 56, 73, 62, 66, 81, 93, 85, 84, 89, 97, 101, 127, 121, 122, 119, 128, 150, 141, 144, 152, 150, 143, 174, 203, 197, 195, 196, 194, 213, 213, 218, 223, 230, 235, 249, 258, 256, 244, 264, 262 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,2
评论
a(n)离素数(n)不远。
链接
皮埃尔·卡米,n=1.176时的n,a(n)表
例子
素数(1)#=22+3=55>2^2所以a(1)=1
素数(2)#=6 6+5=11,6+7=13 11>3*3,因此a(2)=2
程序
脚本
尺寸nn,1
DIM kk公司
DIM立方厘米
DIM日
DIMS测试
仪表板集成模块ss
OPENFILEOUT myout,资源
LABEL环
设置nn,nn+1
设置kk,nn
设置抄送,0
设置dd,0
标签环
设置kk,kk+1
如果p(kk)>p(nn)^2,则转到a
设置tt,%d,%d,%d\,;nn;p(nn)-p(kk)
PRP p(nn)#-p(kk),tt
如果是ISPRIME,则设置cc,cc+1
如果ISPRP,则设置cc,cc+1
设置tt,%d,%d,%d\,;nn;p(nn);p(kk)
PRP p(nn)#+p(kk),tt
如果是ISPRIME,则设置dd、dd+1
如果ISPRP,则设置dd、dd+1
GOTO循环
标签a
集合ss,%d,%d,%d\,;nn;复写的副本;
写入myout,ss
GOTO循环
交叉参考
囊性纤维变性。A185398号.
关键词
非n
作者
皮埃尔·卡米2011年2月21日
状态
已批准

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

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

上次修改时间:2024年4月25日01:35 EDT。包含371964个序列。(在oeis4上运行。)