247942-OEIS

A247942型

如果n≤3，则a（n）=n，否则，之前未出现的最小数与a（n-2）*a（n-3）至少有一个公因数，但与a（n-1）没有公因数。

1, 2, 3, 4, 9, 8, 15, 14, 5, 6, 7, 10, 21, 16, 25, 12, 35, 18, 49, 20, 27, 22, 39, 11, 13, 24, 55, 26, 33, 28, 45, 32, 51, 38, 17, 19, 30, 119, 36, 65, 34, 57, 40, 63, 44, 69, 50, 23, 42, 85, 46, 75, 52, 81, 56, 87, 62, 29, 31, 48

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

抵消

1,2

顺序不同于A098550号从a（11）开始。

序列是自然数的排列。该证明类似于A098550号（稍作改动）。 -弗拉基米尔·舍维列夫2015年1月14日

链接

罗伯特·伊斯雷尔，n=1..10000时的n，a（n）表

David L.Applegate、Hans Havermann、Bob Selcoe、Vladimir Shevelev、N.J.A.Sloane和Reinhard Zumkeller，黄石公园排列，arXiv预印arXiv:1501.016692015。

MAPLE公司

对于从1到3的n do

a[n]：=n：

b[n]：=1：

日期：

n从4到1000 do

q： =a[n-2]*a[n-3]；

从4 do到k

如果未赋值（b[k]）且igcd（k，q）>1且igcd（k，a[n-1]）=1，则

a[n]：=k；

b[k]：=1；

打破

fi（菲涅耳）

日期：

seq（a[i]，i=1..1000）； #罗伯特·伊斯雷尔2015年1月12日

数学

a[n/；n<=3]：=n；a[n_]：=a[n]=对于[aa=表[a[j]，{j，1，n-1}]；k=4，真，k++，如果[FreeQ[aa，k]&！互质Q[k，a[n-2]*a[n-3]]&&互质Q[k，a[n-1]]，返回[k]]；表[a[n]，{n，1，60}](*Jean-François Alcover公司2015年1月12日*）

交叉参考

囊性纤维变性。A098550号,A249167型,A251604型,A247225号.

上下文中的序列：A329425型 A379263型 A373390型*A374612型 A098550号 A335585型

相邻序列：A247939型 A247940型 A247941型*A247943型 A247944 A247945型

关键词

非n

作者

弗拉基米尔·舍维列夫2015年1月11日

扩展

更多术语来自Jean-François Alcover公司2015年1月12日

状态

经核准的