登录

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

 

提示 （来自的问候整数序列在线百科全书!) A163457号 a（n）=n的最小除数，使得n的这个除数和所有的大除数互不互质。 1 2, 3, 2, 5, 3, 7, 2, 3, 5, 11, 4, 13, 7, 5, 2, 17, 3, 19, 5, 7, 11, 23, 4, 5, 13, 3, 7, 29, 6, 31, 2, 11, 17, 7, 6, 37, 19, 13, 8, 41, 7, 43, 11, 9, 23, 47, 4, 7, 5, 17, 13, 53, 3, 11, 8, 19, 29, 59, 6, 61, 31, 9, 2, 13, 11, 67, 17, 23, 10, 71, 9, 73, 37, 5, 19, 11, 13, 79, 8, 3, 41, 83, 12, 17 (列表；图表；参考；听；历史；文本；内部格式) 抵消 2,1 链接 阿洛伊斯·海因茨，n=2.5000时的n，a（n）表 例子 30的除数是1,2,3,5,6,10,15,30。5是6的互质，因此a（30）>=6。检查所有不同除数对>=6的最大公约数：GCD（6,30）=6，GCD（6-15）=3，GCD。由于所有这些GCD都>=2，那么a（30）=6。 MAPLE公司 使用（数字理论）：a:=proc（n）局部l，j，m，s，h，k；l： =排序（[除数（n）[]）；m： =nops（l）；h： =米；s： =1；k： =米；如果igcd（l[k]，l[j]）>1，那么h:=j否则会破坏fiod；s： =小时；k： =k-1；如果k<s，则打破fiod；l[s]结束：seq（a（n），n=2..100）#阿洛伊斯·海因茨2009年8月3日 数学 a[n_]：=模[{dd=Divisors[n]，selQ}，selQ[d_]：=模块[{sd=Select[dd，#>=d&]}，FreeQ[GCD@@@子集[sd，{2}]，1]]；选择First[dd，selQ]]； a/@范围[2100](*Jean-François Alcover公司2020年11月20日*） 交叉参考 囊性纤维变性。A162325号. 上下文中的序列：A331959型 A109395号 A145254号*A285708型 A072593号 A348907型 相邻序列：A163454号 A163455号 A163456号*A163458号 A163459号 A163460型 关键词 非n 作者 勒罗伊·奎特2009年7月28日 扩展 更多术语来自阿洛伊斯·海因茨2009年8月3日 状态 经核准的

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

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

上次修改时间：美国东部夏令时2024年4月19日19:02。包含371798个序列。（在oeis4上运行。）