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

登录

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

 

提示 （来自的问候整数序列在线百科全书!) A206945型 整数k>2、|m|>1和k！=的素数Phi（k，m）2^j（j>1） 0 3, 7, 11, 13, 31, 43, 61, 73, 127, 151, 157, 211, 241, 307, 331, 421, 463, 521, 547, 601, 683, 757, 1093, 1123, 1483, 1723, 2551, 2731, 2801, 2971, 3307, 3541, 3907, 4423, 4561, 4831, 5113, 5419, 5701, 6007, 6163, 6481, 8011, 8191, 9091, 9901, 10303, 11131 (列表;图表;参考;听;历史;文本;内部格式) 抵消 1,1 评论 Phi（k，m）表示分圆多项式数分圆（k，m）。 这些是A206944型. A059055型是此序列的子序列。 Mathematica程序可以生成任意边界maxdata的序列，而无需用户选择参数。本程序的参数确定部分在A206864型. 链接 n=1..48时的n，a（n）表。 例子 只是从A206944型: A206944型（1） =3是质数，所以a（1）=3。。。 数学 phiinv[n_，pl_]：=模块[{i，p，e，pe，val}，如果[pl=={}，返回[If[n==1，{1}，{}]]；val={}；p=最后[pl]；对于[e=0；pe=1，e==0||Mod[n，（p-1）pe/p]==0，e++；pe*=p，val=Join[val，pe*phiinv[If[e==0，n，n*p/pe/（p-1）]，Drop[pl，-1]]]；排序[val]]；phiinv[n]：=phiinv[n，选择[1+除数[n]，PrimeQ]]；最大数据=12000；最大值=天花板[（1+Sqrt[1+4*（maxdata-1）]）/4]*2；eb=2*楼层[（Log[2，maxdata]）/2+0.5]；而[eg=phiinv[eb]；lu=长度[eg]；lu＝＝0，eb＝eb+2]；t=选择[Range[eg[[Length[eg]]]，（（EulerPhi[#]<=eb）&&（（！IntegerQ[Log[2，#]]）||（#<=2）））&]；t=SortBy[t，分圆[#，2]&]；a={}；Do[i=2；While[i++；cc=分圆[t[i]]，m]；cc<=最大数据，如果[PrimeQ[cc]，a=Append[a，cc]]]，{m，2，max}]；联盟[a] 交叉参考 囊性纤维变性。A059055美元,A206944型,A206942型,A206864型,A194712号. 上下文中的序列：A164568号 A053728号 A342183型*A206946型 A059055型 A243367号 相邻序列：A206942型 2006年3月 A206944型*A206946型 A206947型 A206948型 关键词 非n 作者 雷舟（Lei Zhou）2012年2月13日 状态 经核准的

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

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

上次修改时间：美国东部夏令时2024年5月24日00:44。包含372765个序列。（在oeis4上运行。）