%I#7 2017年10月20日14:24:00
%S 3,4,5,6,7,8,9,11,12,15,16,21,22,29,31,34,41,43,44,48,57,58,60,61,
%T 62,64,66,67,68,78,80,81,82,84,85,86,87,88,90,92,93,94,95,96102109,
%电话:110112113114115118119120121122123124126127129130131133134135136143144153
%A189078中1的N个位置;补充A189079。
%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*)
%ta[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,1
%A_Clark Kimberling_,2011年4月16日
|