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

 

标志
提示
（来自的问候整数序列在线百科全书!)
搜索： 编号：a046147
显示1-1，共找到1个结果。 第页1
    排序：关联|参考文献|数|被改进的|创建     格式：长的|短的|数据
A046147号 行读取的三角形，其中第n行列出基元根mod n（省略数字n，但不包含基元根）。 +0
6
1, 2, 3, 2, 3, 5, 3, 5, 2, 5, 3, 7, 2, 6, 7, 8, 2, 6, 7, 11, 3, 5, 3, 5, 6, 7, 10, 11, 12, 14, 5, 11, 2, 3, 10, 13, 14, 15, 7, 13, 17, 19, 5, 7, 10, 11, 14, 15, 17, 19, 20, 21, 2, 3, 8, 12, 13, 17, 22, 23, 7, 11, 15, 19, 2, 5, 11, 14, 20, 23, 2, 3, 8, 10, 11, 14, 15, 18, 19, 21, 26 (列表;图表;参考;听;历史;文本;内部格式)
抵消
2,2
链接
T.D.Noe，n=2..3119的n，a（n）表（前99行非空三角形，展平）
埃里克·魏斯坦的数学世界，基本根。
例子
n后跟原始根（如果有）：
1 -
2 1
3 2
4 3
5 2 3
6 5
7 3 5
8 -
9 2 5
10 3 7
11 2 6 7 8
12 -
13 2 6 7 11
...
MAPLE公司
f： =proc（n）局部p，k，m，R；
p： =数量理论：-primroot（n）；
如果p=FAIL，则返回NULL fi；
m： =理论值：-phi（n）；
k： =选择（i->igcd（i，m）=1，[1..m-1]）；
op（排序（映射（t->p&^t mod n，k））
结束进程：
f（2）：=1：
地图（f，[2..50]美元）#罗伯特·伊斯雷尔2017年4月28日
数学
a[n_]：=选择[Range[n-1]，GCD[#，n]==1&&MultiplicativeOrder[#，n]==EulerPhi[n]&]；表[a[n]，{n，1，30}]//扁平(*让-弗朗索瓦·奥尔科弗2012年10月23日*）
PrimitiveRootList[Range[Prime[10]]//平坦（*需要Mathematica版本10或更高版本*）(*哈维·P·戴尔2016年9月10日*）
黄体脂酮素
（PARI）a_row（r）=我的（v=[]，phi=eulerphi（r））；对于（i=1，r-1，如果（1==gcd（r，i）&&phi==znorder（Mod（i，r）），v=concat（v，i））；v（v）\\路德·H·G·范托尔，2023年10月23日
交叉参考
囊性纤维变性。A001918号,A046144号（行长度），A046145美元,A046146号.
囊性纤维变性。A060749号,A306252型（第1列），A306253型（最后/最大元素）
关键词
非n,标签
作者
埃里克·韦斯特因
扩展
编辑人罗伯特·伊斯雷尔2017年4月28日
状态
经核准的
第页1

搜索在0.004秒内完成

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

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

上次修改时间：2024年6月26日23:59 EDT。包含373723个序列。（在oeis4上运行。）