登录
A098026号
最小素数p,使得p+1是n个不同素数的乘积。
5
2, 5, 29, 389, 2309, 30029, 570569, 11741729, 300690389, 10407767369, 239378649509, 9426343036109, 304250263527209, 18740171637257069, 693386350578511589, 37508276737897976009, 2925030695773453637369, 141143645364710083725629, 8327475076517894939812169
抵消
1,1
链接
马克斯·阿列克塞耶夫,n=1..100时的n,a(n)表
例子
a(4)=389,因为389+1=2*3*5*13。
数学
生成[pIndex_,i_]:=模块[{p2,t},p2=pIndex;而[p2[i]]++;Do[p2[[j]]=p2[[i]]+j-i,{j,i+1,长度[p2]}];t=时间@@Prime[p2];t<事实*base,AppendTo[s,t];如果[i<Length[p2],则生成[p2,i+1]]];事实=2;表[pin=范围[n];base=Times@@Prime[pin];s={基};执行[Generate[pin,j],{j,n}];s=排序[s];noPrime=真;i=0;当[noPrime&&i<长度[s]时,i++;noPrime=!素数Q[-1+s[[i]]];如果[noPrime,-1,-1+s[[i]]],{n,20}](*T.D.诺伊2004年12月13日*)
交叉参考
囊性纤维变性。A073918号(最小素数p,使得p-1正好有n个不同的素数因子)。
关键词
非n
作者
Lekraj Beedassy公司2004年9月10日
扩展
更正和扩展人雷·钱德勒2004年9月18日
进一步更正和扩展T.D.诺伊2004年12月13日
修正了a(14),并增加了a(18)项马克斯·阿列克塞耶夫2023年3月16日
状态
经核准的