登录
A358916型
a(1)=1。此后,a(n)是最不新颖的k!=n这样A007947号(k) |编号。
2
1, 4, 9, 2, 25, 3, 49, 16, 27, 5, 121, 6, 169, 7, 45, 8, 289, 12, 361, 10, 63, 11, 529, 18, 125, 13, 81, 14, 841, 15, 961, 64, 99, 17, 175, 24, 1369, 19, 117, 20, 1681, 21, 1849, 22, 75, 23, 2209, 32, 343, 40, 153, 26, 2809, 36, 275, 28, 171, 29, 3481, 30, 3721
抵消
1,2
评论
换句话说,a(1)=1,那么对于n>1,a(n)是最小的数字k,不是更早出现的,其无平方核(rad(k)是n的除数。
正整数的置换-罗伯特·伊斯雷尔2022年12月11日
发件人迈克尔·德弗利格,2022年12月6日,修正人罗伯特·伊斯雷尔,2022年12月11日:(开始)
定义的一些后果:
素数n=p意味着a(p)=p^2,包括最大值。
n=2p意味着a(2p)=p,n=4p意味着b(4p)=2p。
当e>=1时,n=2^e表示a(2^e)=2^(e+1),如果e是奇数,则表示2^(e-1)如果e是偶数。
n=p^e,其中e>=1,p是奇素数,这意味着a(n)=p^(e+1)。
复合无平方2n表示a(2n)=n,包含最小值。
gcd(n,n+/-1)=1意味着gcd(a(n),a(n+/-1))=1。
设K=rad(n);a(n)是R_K、K-正则数列表、1和素数因子限制为p|K的元素。例如,如果K=6,则a(nn为inA003586号,如果K=10,则a(n)!=n为inA003592号.(结束)
链接
罗伯特·伊斯雷尔,n=1..10000时的n,a(n)表
迈克尔·德弗利格,a(n)的注释对数对数散点图,n=1..2^12,用红色突出显示和标记素数,用金色表示复合素数幂并用橙色标记,用绿色表示复合平方自由,用大浅蓝表示复合素数幂的乘积并用蓝色标记,所有其他数字用深蓝色表示。前36个术语仅用黑色标注。
配方奶粉
对于n=p^k,其中p是素数,k>=1,a(n)=p^(k+1)。特别是,a(p)=p^2(记录)。
例子
a(5)=25,因为rad(25)=5,并且没有不等于5的较小数字具有此特性。
MAPLE公司
N: =100:#对于(1)。。a(否)
R: =地图(数字理论:-字根,[$1..N^2]):
A[1]:=1:
议程:=[2..N^2]:
对于从2到n的n do
如果是素数(R[n]),则
如果R[n]=2且padic:-ordp(n,2)::偶数则A[n]:=n/2
其他A[n]:=R[n]*n
fi;
如果A[n]<=n,则议程:=subs(A[n]=NULL,议程)fi;
下一个
fi;
发现:=false;
对于j从1到nops(议程)do
x: =议程[j];
如果x<>n且n mod R[x]=0,则
A[n]:=x;议程:=子地图(j=NULL,议程);已找到:=真;打破
fi(菲涅耳)
od;
如果未找到,则断开fi;
日期:
转换(A,列表)#罗伯特·伊斯雷尔2022年12月11日
数学
nn=120;c[_]=错误;f[n_]:=f[n]=倍@@FactorInteger[n][[All,1]];a[1]=1;c[1]=正确;u=2;Do[Which[PrimeQ[n],k=n^2,PrimePowerQ[n].集[{p,k},{f[n],1}];而[Nand[!c[p^k],p^k!=n] ,k++];k=p^k,真,k=u;而[Nand[!c[k],k!=n、 可除[n,f[k]]],k++]];集合[{a[n],c[k]},{k,True}];如果[k==u,而[c[u],u++]],{n,2,nn}];数组[a,nn](*迈克尔·德弗利格2022年12月6日*)
关键词
非n
作者
扩展
更多术语来自迈克尔·德弗利格2022年12月7日
状态
经核准的