A046735-OEIS公司

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

A046735号

非平凡（即，没有具有此属性的非平凡因子）整数，不除以A000213号.

2, 27, 91, 103, 163, 199, 203, 221, 247, 305, 371, 377, 397, 421, 551, 559, 757, 779, 883, 991, 1021, 1079, 1087, 1123, 1189, 1199, 1237, 1351, 1521, 1543, 1567, 1609, 1651, 1753, 1769, 1799, 1807, 1873, 1883, 1919, 2009, 2071, 2261, 2539 (列表;图表;参考;听;历史;文本;内部格式)

	抵消	`1,1`
	链接	`罗伯特·伊斯雷尔，n=1..1275时的n，a（n）表`
	MAPLE公司	`nd:=proc（p）局部a，b，c，r，r；` `a： =1；b： =1；c： =1；R[1,1,1]：=真；` `做` `r： =a+b+c mod p；` `如果r=0，则返回假fi；` `a： =b；b： =c；c： =r；` `如果分配了（R[a，b，c]）或nops（{a，b、c}）=1` `然后返回true` `否则R[a，b，c]：=真` `fi；` `日` `结束过程：` `N： =10^4:#获取所有术语<=N` `五： =矢量（N）：结果：=空：` `对于从1到n的n do` `如果V[n]=0，则` `如果nd（n），则Res:=Res，n；V[[seq（k*n，k=2..楼层（n/n））]:=1；fi（菲涅耳）` `fi；` `日期：` `研究#罗伯特·伊斯雷尔2017年2月26日`
	数学	`非除数[n_]：=模[{a=1，b=1，c=1，t}，对于[i=1，i<=n^2，i++，t=Mod[a+b+c，n]；如果[t！=0，a=b；b=c；c=t，则返回[False]]；如果[c==1&b==1&&a==1，则返回[True]]]；` `okQ[n_]：=Do[If[nondivisor[d]，Return[n==d]]，{d，Divisors[n]}]；` `选择[Range[3000]，okQ](Jean-François Alcover公司，2019年3月5日，PARI）`
	黄体脂酮素	`（PARI）非除数（n）=my（a=1，b=1，c=1，t）；对于（i=1，n^2，t=（a+b+c）%n；如果（t，a=b；b=c；c=t，返回（0））；如果（c==1&b==1&&a==1，返回（1））` `is（n）=fordiv（n，d，if（nondivisor（d），return（n==d））；0 \\查尔斯·格里特豪斯四世，2012年8月29日`
	交叉参考	`上下文中的序列：A273844型 A294678号 206585英镑A038625型 280089加元 A041801号` `相邻序列：A046732号 A046733号 A046734号A046736号 A046737号 A046738号`
	关键词	`非n`
	作者	`大卫·W·威尔逊`
	扩展	`亨利·阿尤拉（Henry.Ayoola（AT）googlemail.com）修正的定义，2009年2月3日` `a（1）由添加查尔斯·格里特豪斯四世，2012年8月29日`
	状态	`已批准`

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

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

上次修改时间：美国东部夏令时2024年5月23日07:28。包含372760个序列。（在oeis4上运行。）