登录

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

 

提示 （来自的问候整数序列在线百科全书!) A285328型 如果n是平方自由的，a（n）=1(A005117号)，否则a（n）=Max{m<n|与n相同的素因子，忽略多重性}。 16 1, 1, 1, 2, 1, 1, 1, 4, 3, 1, 1, 6, 1, 1, 1, 8, 1, 12, 1, 10, 1, 1, 1, 18, 5, 1, 9, 14, 1, 1, 1, 16, 1, 1, 1, 24, 1, 1, 1, 20, 1, 1, 1, 22, 15, 1, 1, 36, 7, 40, 1, 26, 1, 48, 1, 28, 1, 1, 1, 30, 1, 1, 21, 32, 1, 1, 1, 34, 1, 1, 1, 54, 1, 1, 45, 38, 1, 1, 1, 50, 27, 1, 1, 42, 1, 1, 1, 44, 1, 60, 1, 46, 1, 1, 1, 72, 1, 56, 33, 80, 1, 1, 1, 52, 1, 1, 1, 96 (列表；图表；参考；听；历史；文本；内部格式) 抵消 1,4 链接 安蒂·卡图恩，n=1..10000时的n，a（n）表 配方奶粉 如果A008683号（n） <>0，a（n）=1，否则a（nA007947号（k）=A007947号（n） ●●●●。 其他身份。对于所有n>=1： 一个(A065642号（n） ）=n。 例子 发件人迈克尔·德弗利格2018年12月31日：（开始） a（1）=1，因为1是平方自由的。 a（2）=1，因为2是平方自由的。 a（4）=2，因为4不是无平方的，2是小于4的最大数，它具有4所具有的所有不同的素除数。 a（6）=1，因为6是平方自由的。 a（12）=6，因为12不是无平方的，6是小于12的最大数，它具有12所具有的所有不同的素除数。（6也是12的平方根）。 a（16）=8，因为16不是无平方的，8是小于16的最大数，它具有16的所有不同素除数。 a（18）=12，因为18不是无平方的，12是小于18的最大数，它具有18所具有的所有不同的素除数。 （结束） 数学 表[With[{r=DivisorSum[n，EulerPhi[#]Abs@MoebiusMu[#]&]}，If[Moebius Mu@n！=0，1，SelectFirst[Range[n-2，2，-1]，DivisorSum[#，Euler Phi[#]Abs@Moebius-Mu[#]&]=r&]]]，{n，108}](*迈克尔·德弗利格，2018年12月31日*） 黄体脂酮素 （方案） （定义(A285328型n） （如果（不是（零(A008683号n） ）1（let（（k））(A007947号n） ）（let循环（（n（-n k）））（如果（=(A007947号n） k）n（回路（-n k））） （平价） A007947号（n） =factorback（factorint（n）[，1]）；\\发件人安德鲁·莱莱琴科2014年5月9日 A285328型（n） ={my（r=A007947号（n） ）；如果（核心（n）==n，1，n=n-r；同时(A007947号（n） <>r，n=n-r）；n） ；}；\\在下面的Python-code之后-安蒂·卡图恩，2017年4月17日 A285328型（n） ={my（r）；如果（（n>1&&！比特（n，（n-1））），（n/2），r=A007947号（n） ；如果（r==n，1，n=n-r；而(A007947号（n） <>r，n=n-r）；n） ）；}；\\版本针对2的功率进行了优化。 （Python） 从运算符导入mul 从症状导入因子 从sympy.theory.factor导入核心 def a007947（n）：如果n<2，则返回1，否则减少（mul，素数（n）） 定义a（n）： 如果核心（n）==n：返回1 r=a007947（n） k=n-r 当k＞0时： 如果a007947（k）==r：返回k 其他：k-=r 打印（[a（n）代表范围（121）中的n]）#因德拉尼尔·戈什和安蒂·卡图恩，2017年4月17日 交叉参考 的左反转A065642号. 囊性纤维变性。A005117号,A007947号,A008479号,A008683号,A284571型,A285111型,A285331型,A285329型. 另请参阅A079277号. 上下文中的序列：A355003型 A322020型 A294895型*A321030型 A290529型 A266349号 相邻序列：285325英镑 A285326型 A285327型*A285329型 A285330型 A285331型 关键词 非n 作者 安蒂·卡图恩，2017年4月17日 状态 经核准的

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

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

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