A071615-OEIS公司

A071615号

a（n）是使2*n*m为非显著值的最小m；也就是说，2*n*a（n）在A005277号.

7, 17, 15, 19, 5, 43, 1, 19, 5, 17, 7, 167, 1, 11, 3, 19, 1, 67, 1, 17, 17, 7, 5, 211, 1, 7, 11, 13, 3, 139, 1, 31, 9, 1, 5, 109, 1, 1, 3, 85, 3, 61, 1, 11, 1, 7, 1, 211, 1, 11, 5, 7, 3, 31, 5, 31, 1, 13, 1, 353, 1, 1, 9, 31, 3, 71, 1, 5, 3, 19, 1, 317, 1, 5, 3, 1, 1, 31, 1, 167, 7, 7, 5 (列表;图表;参考;听;历史;文本;内部格式)

	抵消	`1,1`
	链接	`阿米拉姆·埃尔达尔，n=1..10000时的n，a（n）表`
	例子	`n=5:invphi（10k）中的项数为2,5,2,9,0,9，。。。对于k=1,2,3，。。。；a（5）=5，因为0出现在第5位。`
	MAPLE公司	`带有（数字理论）；a:=proc（n）局部m；对于1中的m，如果（invphi（2nm）=[]），则返回m end-end-end`
	数学	invphi[n_，plist_]：=模块[{i，p，e，pe，val}，如果[plist=={}，返回[If[n==1，{1}，{}]]；val={}；p=最后[plist]；对于[e=0；pe=1，e==0\|\|Mod[n，（p-1）pe/p]==0，e++；pe=p，val=Join[val，peinvphi[If[e==0，n，np/pe/（p-1）]，Drop[plist，-1]]]；排序[val]]；invphi[n_]：=invphi[n，选择[1+除数[n]，PrimeQ]]；a[n_]：=对于[m=1，True，m++，如果[invphi[2nm]=={}，返回[m]]（invphi[n，plist]是x的列表，其中phi（x）=n和plist中x的所有素数除数。）
	交叉参考	`参见。A000010号,A005277号,A002202号,A071616号.` `上下文中的序列：A128713号 A283163号 1961年1月A067459号 A323746型 A101240标准` `相邻序列：A071612号 A071613号 A071614号A071616号 A071617号 A071618号`
	关键词	`非n`
	作者	`拉博斯·埃利默2002年5月27日`
	扩展	`编辑和扩展人罗伯特·威尔逊v2002年5月28日` `编辑和扩展人迪安·希克森2002年6月4日`
	状态	`已批准`