A361534-OEIS公司

A361534飞机

设h，i，j是序列中最新的3个项，从a（1）=1，a（2）=2，a（3）=3开始。设R=rad（h*i*j），其中rad为A007947号设S是U={h，i，j}中可被素数p除以R的最小项数。然后，a（n）是最大素数p的最小新倍数。

三

1, 2, 3, 6, 9, 4, 12, 15, 5, 8, 18, 10, 20, 21, 7, 25, 30, 14, 28, 35, 40, 42, 24, 49, 56, 27, 33, 11, 22, 36, 39, 13, 16, 45, 26, 52, 50, 55, 65, 78, 44, 66, 91, 104, 77, 88, 117, 130, 99, 110, 143, 156, 60, 121, 169, 182, 132, 154, 195, 208, 165, 176, 221, 17, 234, 48, 34, 51, 68, 54, 85, 70, 102

(列表;图表;参考;听;历史;文本;内部格式)

抵消

1, 2

在前2^20项中，只有3次相邻项具有相同弧度（例如，a（12,13）=10,20）；只有两种情况下rad（h）=rad（j）（例如，a（3,4,5）=3,6,9），并且不存在rad（h=rad（i）=rad。在任何情况下，该定义都将确保序列的连续性，因为a（n）是R的最大素除数的最小新倍数。

该序列被推测为正整数的置换，素数按其自然顺序出现。

散点图类似于“细毛梳子”，类似于A361133型.

链接

n=1..73时的n、a（n）表。

迈克尔·德弗利格，a（n）的对数散点图，n=1..2^20，以红色显示素数。

例子

a（1,2,3）=1,2,3，R中的每个素除数只除以一项（S=1）。由于3是最大的这样的素数，a（4）＝6，是3的最小新颖倍数。

a（2，3，4）=2，3，6和S=2，因为2和3都除以U中的两项，并且没有比这更多的素数。因为3是最大的素数，所以a（5）必须是9。

a（3,4,5）=3,6,9和S=1，因为2|6但{3,6,9}中没有其他项，因此a（6）=4，是2的最小新倍数。

数学

nn=120；c[_]=错误；q[_]=1；

数组[Set[{a[#]，c[#]}，{#，True}]&，3]；

集合[{h，i，j}，{a[1]，a[2]，a[3]}]；u=4；

w=数组[FactorInteger[#][[All，1]]&，3]；

Do[g=反向@联合@扁平[w]；

p=第一个[

加入@@Map[ReverseSort，

拆分依据[SortBy[

表[{p，计数[{h，i，j}，_？（可除[#，p]&）]}，{p，g}]，

姓氏]，姓氏]][[1]；

（k=q[#]；当[c[k#]，k++]；k*=#；当[c[#q[#]]，q[#]++]）&[p]；

集合[{a[n]，c[k]，w，h，i，j}，{k，True，

追加[w[[2；；-1]]，FactorInteger[k][[All，1]]]，i，j，k}]；

如果[k==u，While[c[u]，u++]]，{n，4，nn}]；

数组[a，nn](*迈克尔·德弗利格2023年3月15日*）

交叉参考

囊性纤维变性。A007947号,A361133型.

上下文中的序列：A191397号 A358764型 A361133型*A359857型 A087494号 A328843型

相邻序列：A361531型 A361532飞机 A361533型*A361535型 A361536飞机 A361537飞机

关键词

非n

作者

大卫·詹姆斯·桑莫尔2023年3月15日

状态

经核准的