A253288-OEIS公司

A253288型

每个项a（n）满足四个性质：1，可被n的所有素因子整除；2，只能被n的素因子整除；3，不等于术语a（1）、a（2）、…中的任何一个。。。a（n-1）；4，满足1-3的最小数，如果A005361号（n）是偶数，或满足1-3的第二小数，如果A005361号（n）很奇怪。

1, 4, 9, 2, 25, 12, 49, 16, 3, 20, 121, 6, 169, 28, 45, 8, 289, 18, 361, 10, 63, 44, 529, 36, 5, 52, 81, 14, 841, 60, 961, 64, 99, 68, 175, 24, 1369, 76, 117, 50, 1681, 84, 1849, 22, 15, 92, 2209, 48, 7, 40, 153, 26, 2809, 72, 275, 98, 171, 116, 3481, 30, 3721, 124, 21, 32 (列表;图表;参考文献;听;历史;文本;内部格式)

	抵消	`1,2`
	评论	`这个序列是正整数的置换。` `素数p出现在n=p^2。` `数x的倍数的密度为1/x。` `推测：正整数的这种排列是自反转的。与进行比较A358971型.此序列与A358971型除了固定点A358971型（1）在后者中明确排除了=1-迈克尔·德弗利格2022年12月10日`
	参考文献	`Brad Klee，发布到序列粉丝邮件列表，2014年12月21日。`
	链接	`迈克尔·德弗利格，n，a（n）表，n=1.10000` `迈克尔·德弗利格，a（n）的对数散点图，n=1..2^20。` `迈克尔·德弗利格，a（n）<=12000的对数散点图，n=1..2^10用红色表示素数，其他素数幂（inA246547号)在金中，无平方复合材料（inA120944号)在绿色中，数字既不是平方自由也不是素数幂（inA120706号)蓝色和洋红色。洋红色的术语是复合素数幂的乘积（inA286708型).` `迈克尔·德弗利格，a（n）的对数散点图<=2^14，n=1..2^14，显示a（n），使得rad（n）=6为红色，以及A358971型（n）为了进行比较，rad（n）=6（蓝色）。这是一个例子，说明了A003586号.` `迈克尔·德弗利格，a（n）<=80000的对数散点图，n=1..2^14，如果a（n）=A358971型（n），否则a（n）为红色，并且A358971型（n）蓝色。` `自然数排列序列的索引项`
	MAPLE公司	`A253288div:=程序（a，n）` `当地npr，d，apr；` `npr:=数量[因子集]（n）；` `对于npr do中的d` `如果modp（a，d）＜＞0，则` `返回false；` `结束条件：；` `结束do：` `apr:=numtheory[factorset]（a）；` `如果apr减去npr={}，那么` `真；` `其他的` `假；` `结束条件：；` `结束进程：` `A253288型：=进程（n）` `选项记忆；` `本地a，i，prev，act，ev；` `如果n=1，则` `1;` `其他的` `动作：=1；` `if类型(A005361号（n），“偶数”）然后` `ev:=真；` `其他的` `ev:=假；` `结束条件：；` `对于1 do` `上一个：=假；` `对于i从1到n-1 do` `如果procname（i）=a，则` `prev:=真；` `断裂；` `结束条件：；` `结束do：` `如果不是上一个，那么` `如果A253288div（a，n），则` `如果ev或act>1，则` `返回a；` `其他的` `act:=act+1；` `结束条件：；` `结束条件：；` `结束条件：；` `结束do：` `结束条件：；` `结束进程：` `序列(A253288型（n），n=1..80）#R.J.马塔尔2015年1月22日`
	数学	nn=1000；c[_]=错误；q[_]=1；f[n_]：=f[n]=映射[Times@@#&，Transpose@FactorInteger[n]]；a[1]=1；c[1]=正确；u=2；Do[Which[PrimeQ[n]，k=n^2，PrimeQ@Sqrt[n]；k=Sqrt[n]，SquareFreeQ[n'，k=First@f[n]；m=q[k]；而[Nand[！c[k m]，k m！=n、可除[k，First@f[m]]]，m++]；而[Nor[c[q[k]k]，Divisible[k，First@f[q[k]]]，q[k]++]；k=m，真，t=0；集合[{k，s}，{First[#]，1+Boole@OddQ@Last[#]}&[f[n]]]；m=q[k]；直到[t==s，如果[m>q[k]，m++]；而[Nand[！c[k m]，可分[k，第一个@f[m] ]]，m++]；t++]；如果[s==1，而[Nor[c[q[k]k]，可除[k，First@f[q[k]]]，q[k]++]]；k=米]；集合[{a[n]，c[k]}，{k，True}]；如果[k==u，While[c[u]，u++]]，{n，2，nn}]；数组[a，nn](迈克尔·德弗利格2022年12月10日）
	交叉参考	`囊性纤维变性。A005361号（n的素因式分解指数的乘积），A358971型.` `上下文中的序列：A256513型 A358916型 A064505号A358971型 A358786型 A360541型` `相邻序列：A253285型 A253286号 A253287号A253289号 A253290型 A253291号`
	关键词	`非n`
	作者	`N.J.A.斯隆2014年12月29日`
	扩展	`361年之后的条款R.J.马塔尔2015年1月22日`
	状态	`经核准的`