%I#14 2020年6月4日16:06:58

%S 1,2,10,13,14,17,18,19,20,23,24,25,26,27,28,30,32,33,35,36,37,38,39，

%电话：40,42,45,46,49,50,51,52,53,54,55,56,59,63,65,69,70,71,72,73,74,75,76，

%电话：77,79,83,89,91,97,98,99100101103104105106107108111117125128

%A189078中N个0位置；补充A189080。

%H G.C.Greubel，n表，n=1..5000的a（n）</a>

%t r=2^（1/2）；u[n_]：=楼层[r*n]；（*A001951*）

%tv[n_]：=楼层[（2+r）n]；（*A001952*）

%t a[1]＝0；a[2]=0；h=200；

%t c=表[u[n]，{n，1，h}]；

%t d=表格[v[n]，{n，1，h}]；

%t表[a[d[[n]]=1-a[n]，{n，1，h-1}]；（*A189078*）

%t表[a[c[[n]]=a[n]，{n，1，h}]（*A189078*）

%t压扁[位置[%，0]]（*A189079*）

%t压扁[位置[%，1]]（*A189080*）

%Y参考A189078。

%K nonn公司

%O 1,2号机组

%A_Clark Kimberling_，2011年4月16日