|
|
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
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|