OEIS哀悼西蒙斯感谢西蒙斯基金会支持包括OEIS在内的许多科学分支的研究。

登录

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

 

提示 （来自的问候整数序列在线百科全书!) A103310号 n的最大素本原根小于n，如果不存在则为0。 6 0, 0, 0, 2, 3, 3, 5, 5, 0, 5, 7, 7, 0, 11, 5, 0, 0, 11, 11, 13, 0, 0, 19, 19, 0, 23, 19, 23, 0, 19, 0, 17, 0, 0, 31, 0, 0, 19, 29, 0, 0, 29, 0, 29, 0, 0, 43, 43, 0, 47, 47, 0, 0, 41, 47, 0, 0, 0, 47, 47, 0, 59, 53, 0, 0, 0, 0, 61, 0, 0, 0, 67, 0, 59, 61, 0, 0, 0, 0, 59, 0, 59, 71, 79, 0, 0, 73 (列表;图表;参考;听;历史;文本;内部格式) 抵消 0,4 链接 罗伯特·伊斯雷尔，n=0..10000时的n，a（n）表 埃里克·魏斯坦的数学世界，基本体根. MAPLE公司 hasproot:=进程（n） 如果n：：奇数，则nops（numtheory:-factorset（n））=1 else padic:-ordp（n，2）=1且nops（数量理论：-factorset（n/2））=1 fi（菲涅耳） 终末程序； hasproot（2）：=真：hasprot（4）：=真实： f： =proc（n）局部p，t； 如果不是hasproot（n），则返回0 fi； t： =数值理论：-phi（n）； p： =预素数（n）； 虽然不是数字理论：-顺序（p，n）=t do 如果p=2，则返回0 fi； p： =预素数（p）； od； 第页 结束进程： f（0）：=0:f（1）：=0.f（2）：=0： 地图（f，[0..100]美元）#罗伯特·伊斯雷尔2020年9月8日 数学 a[n_]：=模块[{R=PrimitiveRootList[n]，s}，s=选择[R，#<n&&PrimeQ[#]&]；如果[s=={}，0，s[[-1]]]； 表[a[n]，{n，0，100}](*Jean-François Alcover公司2023年2月1日*） 交叉参考 囊性纤维变性。A001918号,A046144号,A046145号,A046146号,A103309号. 上下文中的序列：A158745号 A175108号 A265145型*A046146号 A081768号 A273493型 相邻序列：A103307号 A103308号 A103309号*A103311号 A103312号 A103313号 关键词 容易的,非n 作者 哈里·史密斯2005年1月29日 状态 经核准的

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

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

最后修改时间：美国东部时间2024年6月12日00:32。包含373320个序列。（在oeis4上运行。）