%I#8 2021年2月14日21:39:36

%S 1,2,7,10,11,13,14,15,16,17,18,19,20,22,23,24,25,26,27,28,29,30,31,32，

%电话：33,34,35,36,37,38,39,40,41,43,44,45,46,47,48,49,50,51,52,53,54,55,56，

%U 57、58、61、62、64、65、66、67、68、69、70、71、73、74、79、82、83、85、86、87

%N对m进行编号，使之和{k=1..m}（<1/3+k*r>-<k*r>）>0，其中r=sqrt（5）和<>表示小数部分。

%C见A194368。

%t r=平方[5]；c=1/3；

%t x[n_]：=总和[分数部分[k*r]，{k，1，n}]

%t y[n_]：=总和[分数部分[c+k*r]，{k，1，n}]

%t t1=表格[如果[y[n]<x[n]，1，0]，{n，1，1000}]；

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

%t t2=表格[如果[y[n]==x[n]，1，0]，{n，1，700}]；

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

%t t3=表格[如果[y[n]>x[n]，1，0]，{n，1，100}]；

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

%Y参考A194368。

%K nonn公司

%O 1,2号机组

%A_Clark Kimberling_，2011年8月24日