A147301-OEIS公司

A147301号

a（n）=参数m的最小值，使得函数rad（mn（n-m））具有最大值n=2,3,4…，0<m<n，其中函数rad。

1, 1, 1, 2, 1, 2, 3, 2, 3, 5, 5, 6, 3, 2, 5, 7, 7, 6, 7, 10, 7, 10, 11, 11, 11, 13, 13, 14, 13, 14, 15, 14, 15, 13, 17, 15, 17, 17, 19, 19, 19, 21, 21, 22, 17, 21, 19, 23, 21, 22, 23, 23, 23, 26, 23, 26, 23, 29, 29, 30, 29, 29, 31, 31, 31, 33, 33, 34, 33, 34, 35, 35, 35, 37, 37, 38 (列表;图表;参考;听;历史;文本;内部格式)

	抵消	`2,4`
	评论	`函数rad（k）用于ABC猜想应用。` `关于函数rad（mn（n-m））的最小值，请参见A147298号。` `有关函数rad（mn（n-m））的最大值，请参见A147299号。` `对于rad（mn（n-m））达到最小值的数字m，请参见A147300个。` `对于rad（mn（n-m））达到最大值的数字m，请参见A147301号。` `对于每个值log（n）/log中的序列(A147298号（n））达到的记录请参阅147302英镑。`
	链接	`n=2..77时的n，a（n）表。`
	数学	logmax=0；aa={}；bb={}；cc={}；dd={}；ee={}；ff＝｛｝；gg={}；Do[min=10^100；max=0；ile=0；Do[If[GCD[m，n，n-m]==1，ile=ile+1；s=m n（n-m）；k=系数整数[s]；g=1；做[g=g k[[p]][1]，{p，1，长度[k]}]；如果[g>max，max=g；mmax=m]；如果[g<min，min=g；mmin=m]]，{m，1，n-1}]；附加到[aa，min]；附加到[bb，max]；附加到[cc，mmax]；附加到[dd，mmin]；附加到[gg，ile]；如果[（Log[n]/Log[min]）>logmax，logmax=（Log[n]/Log[min]）；附加到[ee，{N[logmax]，N，mmin，min，mmax，max}]；打印[｛N[logmax]，N，mmin，min，mmax，max｝]；附加到[ff，n]]，{n，2，129}]；抄送(阿图尔·贾辛斯基)
	交叉参考	`囊性纤维变性。A085152号,A085153号,A147298号-A147307号。` `上下文中的序列：A029167号 A161103型 A337879飞机A108380号邮编：361231 A302098型` `相邻序列：A147298号 A147299号 A147300个A147302号 A147303号 A147304材质`
	关键词	`非n`
	作者	`阿图尔·贾辛斯基2008年11月5日`
	状态	`经核准的`