OEIS哀悼西蒙斯感谢西蒙斯基金会支持包括OEIS在内的许多科学分支的研究。

登录

OEIS由OEIS基金会的许多慷慨捐赠者。

 

提示 （来自的问候整数序列在线百科全书!) A285328型 如果n是平方自由的，a（n）=1(A005117号)，否则a（n）=Max{m<n|与n相同的素因子，忽略重数}。 16 1，1，1，2，1，1，4，3，1，1，6，1，1，1，8，1，12，1，10，1，1，18，5，1，9，14，1，1，1，16，1，1，1，24，1，1，20，1，1，22，15，1，36，7，40，1，26，1，48，1，28，1，1，30，1，21，32，1，1，34，1，1，54，1，45，38，1，1，1，50，27，1，1，42，1，1，44，1，60，1，46，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） ）=无。 例子 发件人迈克尔·德弗利格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））） （PARI） A007947号（n） =因子回复（因子（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 从症状导入因子 从症状合成因子导入核心 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型 邮编：266349 相邻序列：A285325型 A285326型 A285327型*A285329型 A285330型 A285331型 关键词 非n 作者 安蒂·卡图恩2017年4月17日 状态 经核准的

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

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

上次修改时间：6月2日00:37 EDT 2024。包含373032个序列。（在oeis4上运行。）