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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A332860型 a(n)是最小素数p,使得p+素数(n)正好有n个素数因子,并以重数计算。 1
3, 3, 3, 17, 37, 83, 271, 557, 1129, 2531, 2017, 21467, 28631, 24533, 73681, 98251, 196549, 589763, 524221, 2621369, 5242807, 14155697, 69205933, 16777127, 83885983, 67108763, 1543503769, 1006632853, 1342177171, 3623878543, 11811159937, 54358179709, 32212254583, 225485782901, 260919263083 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,1
链接
罗伯特·伊斯雷尔,n=1..400时的n,a(n)表
配方奶粉
A001222号(a(n)+A000040型(n) )=无。
例子
a(4)=17,因为17是素数,17+素数(4)=17+7=24=2^3*3有4个素数因子,并且没有更小的素数。
MAPLE公司
g: =进程(n,n,pmax)
局部Res,k,p;
如果n=0,则返回[[]]fi;
Res:=空;
p: =1;
p: =下一素数(p);
如果p>=pmax或2^(n-1)*p>n,则返回[Res]fi;
对于k从1到n,而2^(n-k)*p^k<=n do
Res:=Res,op(映射(t->[op(t),p$k],进程名(n-k,n/p^k,p));
od;
od;
结束进程:
h: =(n,n)->排序(映射(转换,g(n,n,n/2^(n-1)+1),`*`)):
f: =proc(n)局部pn,n,lastN,R,R;
pn:=ithprime(n);
N: =2^N-1;
最后一个N:=N;
N: =2*N;
R: =选择(`>`,h(n,n),lastN);
对于r中的r,如果r>pn且isprime(r-pn),则返回r-pn fiod;
od;
结束进程:
地图(f,[1..50]美元);
交叉参考
囊性纤维变性。A000040型,A001222号.
关键词
非n
作者
状态
经核准的

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

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

上次修改时间:美国东部夏令时2024年4月26日12:36。包含371997个序列。(在oeis4上运行。)