|
| |
|
| A065642号 |
| a（1）=1；对于n>1，a（n）=Min{m>n|m具有与n忽略多重性}相同的素因子。 |
|
42
|
|
|
|
1、4、9、8、25、12、49、16、27、20、121、18、169、28、45、32、289、24、361、40、63、44、529、36、125、52、81、56、841、60、961、64、99、68、175、48、1369、76、117、50、1681、84、1849、88、75、92、2209、54、343、80、153、104、2809、72、275、98、171、116、3481、90、3721
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,2
|
|
|
评论
|
|
|
|
链接
|
|
|
|
配方奶粉
|
|
|
|
例子
|
a（10）=a（2*5）=2*2*5=20；a（12）=a（2^2*3）=2*3^2=18。
|
|
|
数学
|
ffi[x_]：=展平[FactorInteger[x]]；lf[x_]：=长度[FactorInteger[x]]；ba[x_]：=表[部分[ffi[x]，2*w-1]，{w，1，lf[x]}]；cor[x_]：=应用[次数，ba[x]]；连接[{1}，Table[Min[Flatten[Position[Table[cor[w]，{w，n+1，n^2}]-cor[n]，0]+n]，{n，2，100}]]（*此代码适用于素数因子集是不变的，只要无平方核是不变的。*）(*G.C.格鲁贝尔2018年10月31日*）
数组[If[#==1，1，Function[{n，c}，SelectFirst[Range[n+1，n^2]，Times@@FactorInteger[#][[All，1]]==c&]]@@{#，Times@FactorIntiger[#][[All，1]}]&，61](*迈克尔·德弗利格2018年10月31日*）
|
|
|
黄体脂酮素
|
（哈斯克尔）
a065642 1=1
a065642 n=头部[x|让rad=a007947 n，x<-[n+1..]，a007947x==rad]
（PARI）a（n）=如果（n<2，返回（1））；my（f=系数（n），r，mx，mn，t）；如果（#f~==1，则返回（f[1，1]^（f[1,2]+1））；f=f[，1]；r=因子回归（f）；mn=mx=n*f[1]；对于vec（v=向量（#f，i，[1，logint（mx/r，f[i]）+1]），t=prod（i=1，#f，f[i]^v[i]；如果（t<mn&&t>n，mn=t）；锰\\查尔斯·格里特豪斯四世2017年10月18日
（Python）
来自症状输入原因子
def a007947（n）：如果n<2 else prod，则返回1（素数（n））
定义a（n）：
如果n==1：返回1
r=a007947（n）
n+=r
而a007947（n）=回复：
n+=r
返回n
打印（[a（n）代表范围（1,51）中的n]）#因德拉尼尔·戈什2017年4月17日
|
|
|
交叉参考
|
|
|
|
关键词
|
美好的,非n
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
