%I#16 2019年11月1日12:46:37

%S 1,1,2,2,4,2,6,2,6,2,12,18,2,6,1,30,2,48,2,62,2,78,2126,2,6204,2，

%电话：330,2,6,2282,2612,2,6,2942,21554,2,6,12496,23438,2,62,25934,2，

%电话：9372,2,6,215306,224678,2,639984,264662,2,21046466,2169308,2,6

%N a（1）=1，a（2）=1。a（n）=与n互素的两个最大早期项之和。

%C自2018年6月7日起（开始）

%C对于n>=4，如果n是偶数，则a（n）=2。

%C对于n>=7，如果n是奇数，则a（n）==0（mod 6）。

%C对于n>=9，如果n==3（mod 6），a（n）=6。（结束）

%H Robert Israel，n的表，a（n）表示n=1..10000</a>

%e a（1）=1、a（2）=1，a（3）=2、a（4）=2，a（5）=4、a（6）=2和a（8）=2是与9互素的项，出现在{a（1。2和4是其中最大的两个项，因此a（9）=2+4=6。

%p N:=100:#对于a（1）。。a（否）

%pV[1]：=1:V[2]：=1:

%p代表n从3到n do

%p Q:=选择（t->igcd（t，n）=1，[seq（V[i]，i=1..n-1）]）；

%p j1：=最大[指数]（Q）；

%p V[n]：=Q[j1]+最大值（底图（j1=空，Q））

%日期：

%p序列（V[i]，i=1..N）；#_罗伯特·伊斯雷尔，2018年6月7日

%t f[s_]：=附加[s，加@@Take[Sort[Select[s，GCD[#，Length[s]+1]==1&]]，-2]]；巢穴[f，{1,1}，74]（*雷·钱德勒，2006年9月11日*）

%Y参考A122456。

%K nonn，看

%氧1,3

%A _罗伊查询，2006年9月7日

%E由_Ray Chandler和_Robert G.Wilson修订和扩展，2006年9月11日