登录

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

 

提示 （来自的问候整数序列在线百科全书!) A088145型 设p=素数（n）；则a（n）=（总和（p的本原根）-moebius（p-1））/p。 3 0, 1, 1, 1, 2, 2, 4, 3, 6, 6, 4, 6, 8, 6, 13, 12, 15, 8, 10, 15, 12, 14, 21, 20, 16, 20, 18, 27, 18, 24, 19, 27, 32, 24, 36, 22, 24, 28, 46, 42, 46, 24, 42, 32, 42, 35, 27, 34, 58, 36, 56, 53, 32, 52, 64, 71, 66, 39, 44, 48, 48, 72, 48, 66, 48, 78, 44, 48, 88, 56, 80 (列表;图表;参考;听;历史;文本;内部格式) 抵消 1,5 评论 高斯证明了对于所有素数p，p的本原根之和与模p的moebius（p-1）是一致的-乔纳森·桑多2013年2月9日 链接 n=1..71时的n，a（n）表。 维基百科，基本体根 例子 素数（4）=7的原始根是3和5，以及moebius（7-1）=A008683号（6） =1，那么a（4）=（3+5-1）/7=7/7=1-乔纳森·桑多2013年2月10日 数学 PrimitiveRootQ[a_Integer，p_Integer]：=块[{fac，res}，fac=FactorInteger[p-1]；res=表[PowerMod[a，（p-1）/fac[[i，1]]，p]，{i，长度[fac]}]！MemberQ[res，1]]PrimitiveRoots[p_Integer]：=选择[Range[p-1]，PrimitiveBootQ[#，p]&]表[（总计[PrimitiveRoots[Prime[n]]-MoebiusMu[Prime]-1]）/Prime[n]，{n，1，100}] a[n_]：=使用[{p=Prime[n]}，选择[Range[p-1]，乘数顺序[#，p]==p-1&]]；表[（总和[a[n][[i]]，{i，长度[a[n]]}]-MoebiusMu[Prime[n]-1]）/素数[n]，{n，1，10}](*乔纳森·桑多2013年2月9日*） 交叉参考 囊性纤维变性。A008683号，A060749号，A123475号，A222009型. 上下文中的序列：A053197号 A275234型 2017年3月68日*A011754号 A090105号 A082146号 相邻序列：A088142号 A088143号 A088144号*A088146号 A088147号 A088148号 关键词 非n 作者 埃德·佩格（Ed Pegg Jr）2003年11月3日 扩展 定义修正人乔纳森·桑多2013年2月9日 状态 经核准的

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

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

上次修改时间：美国东部夏令时2024年4月25日21:09。包含371989个序列。（在oeis4上运行。）