%I#4 2014年10月17日23:19:43

%S 2,4,7,8,10,12,14,15,17,19,20,22,23,25,26,28,29,31,32,34,35,37,38,40，

%电话：41、43、44、46、47、48、50、51、53、54、56、57、59、60、61、63、64、66、67、69、70、71、73，

%U 74,76,77,78,80,81,83,84,86,87,88,90,91,93,94,95,97,98单位

%N编号k，使A248636（k+1）=A248635（k）+1。

%H Clark Kimberling，n的表，n=1..1000的a（n）</a>

%e（A248636（k+1）=A248636（k））=（2，1，2，1，2，1，2，1，2，1，2，1，1，2，…），使得A248637=（2，4，7，8，10，12，14，…）并且A248638=（1，3，5，6，9，11，13，…）。

%tz=300；p[k_]：=p[k]=和[（h^3/3^h），{h，1，k}]；

%t d=N[表[33/8-p[k]，{k，1，z/5}]，12]

%t f[n_]：=f[n]=选择[范围[z]，33/8-p[#]<1/4 ^n&，1]；

%t u=压扁[表[f[n]，{n，1，z}]]（*A248636*）

%t d=差异[u]

%t v=压扁[位置[d，1]]（*A248637*）

%t w=压扁[位置[d，2]（*A248638*）

%Y参见A248635、A248636和A248630。

%K nonn，简单

%O 1,1号机组

%A_Clark Kimberling_，2014年10月11日