A079880-出口

A079880型

a（n）=n/mpf（n），其中mpf（n）是n的中间素因子(A079879号).

1, 1, 1, 2, 1, 3, 1, 4, 3, 5, 1, 6, 1, 7, 5, 8, 1, 6, 1, 10, 7, 11, 1, 12, 5, 13, 9, 14, 1, 10, 1, 16, 11, 17, 7, 18, 1, 19, 13, 20, 1, 14, 1, 22, 15, 23, 1, 24, 7, 10, 17, 26, 1, 18, 11, 28, 19, 29, 1, 30, 1, 31, 21, 32, 13, 22, 1, 34, 23, 14, 1, 36, 1, 37, 15, 38, 11, 26, 1, 40, 27, 41, 1, 42 (列表;图表;参考;听;历史;文本;内部格式)

	抵消	`1,4`
	评论	`A052126号（n） <=a（n）<=A032742号（n）；` `a（米）=A032742号（米）=A052126号（m） iff m是素数幂(A000961号).`
	链接	`罗伯特·伊斯雷尔，n=1..10000时的n，a（n）表`
	MAPLE公司	`f： =proc（n）局部f，F2，m，i；` `F： =排序（ifactors（n）[2]，（i，j）->i[1]<j[1]）；` `F2:=列表工具：-部分和（map2（op，2，F））；` `因为我从一开始` `如果2*F2[i]>=F2[-1]，则返回n/F[i][1]fi` `日` `结束进程：` `1，seq（f（n），n=2..100）#罗伯特·伊斯雷尔2018年1月26日`
	数学	`mpf[n_]：=模块[｛fi＝FactorInteger[n]，ff，Om｝，ff＝压扁[表[表[f][1]，｛f[[2]}]，｛f，fi｝]]；Om=长度[ff]；如果[OdQ[Om]，ff[[Floor[Om/2]+1]]，ff[[Om/2]]]；` `a[n]：=n/mpf[n]；` `数组[a，100](Jean-François Alcover公司2019年3月9日）`
	交叉参考	`a（n）=n/A079879号（n），A033676号.` `上下文中的序列：A079554号 A247892型 A366649飞机A366291型 A353271型 A326139型` `相邻序列：A079877号 A079878号 A079879号A079881号 A079882号 A079883号`
	关键词	`非n，看`
	作者	`莱因哈德·祖姆凯勒2003年1月13日`
	状态	`已批准`

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

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

上次修改时间：2024年4月25日13:38 EDT。包含371970个序列。（在oeis4上运行。）