登录

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

 

提示 （来自的问候整数序列在线百科全书!) A057459号 a（n+1）=a（n）<p<a（1）*a（2）*…范围内的最小素数p*a（n）使得p-1除以a（1）*a（2）**a（n）；或者如果不存在这样的素数p，那么a（n+1）=最小素数>a（n）。 三 2, 3, 5, 7, 11, 23, 31, 43, 47, 67, 71, 139, 211, 283, 311, 331, 431, 463, 659, 683, 691, 863, 947, 967, 1291, 1303, 1319, 1367, 1427, 1699, 1867, 1979, 1987, 2011, 2111, 2131, 2311, 2531, 3011, 3083, 4099, 4423, 4643, 4691, 4831, 5171, 5179, 5683, 5839 (列表；图表；参考；听；历史；文本；内部格式) 偏移 1,1 链接 Robert G.Wilson v，n=1..10000时的n，a（n）表 例子 a（3）=5。由于a（1）*a（2）的乘积是6，因此没有素数p<6，以至于p-1|6，所以大于a（2”）的下一个素数是5。 a（9）=47，自46（2*23）|2*3*5*7*11*23*31*43开始。 MAPLE公司 带有（数字理论）：a:=[2]；P： =1；j： =1； 对于从2到36 do的n 开关：=-1；P： =P*a[n-1]； 对于i从j+1到1000 do 如果（ithprime（i）<P）和（P mod（ithprice（i）-1））=0，则Q:=ithprime；j： =i；开关：=1；断裂；fi； 日期： 如果sw=-1，则Q:=下一素数（a[n-1]）；j： =π（Q）；fi； a： =[op（a），Q]； 日期： a#N.J.A.斯隆2017年2月13日 数学 f[s_List]：=块[{b=Times@@s，p=NextPrime@Sort[s][[-1]]}，而[Mod[b，p-1]>0&p<b，p=NextPrime@p]；如果[p>b，p=2；而[MemberQ[s，p]，p=NextPrime@p]]；追加[s，p]]；；嵌套[f，{2}，50]（*并由修改罗伯特·威尔逊v，2017年2月13日*） 交叉参考 囊性纤维变性。A007459号。请参阅A282027型用于其他版本。 上下文中的序列：A094318号 A019344号 A229291号*A068853号 A328076型 A236400型 相邻序列：A057456号 A057457号 A057458号*A057460型 A057461号 A057462号 关键词 非n 作者 罗伯特·威尔逊v2000年9月26日 状态 经核准的

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

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

上次修改时间：2024年4月18日22:18 EDT。包含371782个序列。（在oeis4上运行。）