A147300-OEIS公司

A147300个

a（n）=参数m的最小值，使得函数rad（m*n*（n-m））具有最小值n=2,3,4，。。。，其中函数rad（k）（也称为根（k））是k的不同素数因子的乘积。

1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 7, 1, 1, 1, 2, 1, 2, 1, 4, 5, 1, 9, 3, 1, 1, 11, 7, 1, 9, 1, 16, 1, 1, 1, 2, 1, 1, 1, 1, 25, 4, 5, 1, 1, 25, 9, 27, 1, 1, 1, 1, 1, 1, 1, 3, 1, 5, 1, 7, 1, 1, 25, 11, 1, 13, 1, 4, 1, 1, 1, 2, 1, 4, 5, 23, 7, 8, 1, 27, 11, 1, 13, 14, 1, 1, 17, 1, 1 (列表;图表;参考;听;历史;文本;内部格式)

	偏移	`2,10`
	评论	`函数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））达到记录请参阅A147302号.`
	链接	`n=2..100时的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]）；AppendTo[ee，{N[logmax]，N，mmin，min，mmax，max}]；打印[｛N[logmax]，N，mmin，min，mmax，max｝]；附加到[ff，n]]，{n，2，129}]；日(阿图尔·贾辛斯基)
	交叉参考	`囊性纤维变性。A085152号,A085153号,A147298号-A147307号.` `上下文中的序列：A177121号 A329314型 A092931号A346481型 A240228型 A110503型` `相邻序列：A147297号 A147298号 A147299号A147301号 A147302号 A147303号`
	关键词	`非n`
	作者	`阿图尔·贾辛斯基2008年11月5日`
	状态	`经核准的`