%I#5 2021年12月15日02:28:43

%S 2,3,4,3,4,5,5,6,4,5,6,7,7,8,5,7,7,8,9,10,6,7,8,9,9,10,6,7,8,10,10，

%电话11,11,12,7,8,9,9,10,10,11,12,12,12,13,13,14,8,9，10,11,12:12，13，

%U 13,14,14,15,15,16,9,11,12,12,13,13,14,14,15

%N a（N）=A349526（N）+A349526（N+1）。

%C每个正整数n>=2正好出现n-1次；n的最后一次出现是a（（n-1）^2）。

%e A349426=（1,1,2,2,1,3,2,3,3,3,1,4,4,3,4,4-1，…），其中每对正整数i，j只出现一次；a（1）=1+1，a（2）=1+2，a（3）=2+2。

%t={1,1}；Do[t=Join[t，Riffle[Range[n]，n]，{n}]，{n，2100}]；

%t u=压扁[分区[t，2]；

%tv=表[n（n+1），{n，1，80}]；

%t d=删除[u，映射[{#}&，v]]；（*A349526*）

%t p=表[{d[[n]]，d[[n+1]]}，{n，1，150}]；

%t地图[总计，p]（*A349946*）

%Y参考A349526和A349947（数组：第n行显示A349946中n+1的位置）。

%K nonn公司

%O 1,1号机组

%A _百灵金伯利，2021年12月7日