|
| |
|
| 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）
从sympy导入primefactors，prod
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
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
