%I#5 2012年3月30日18:57:43
%S 1,2,2,3,3,3,1,4,5,5,5,5,5,1,6,7,5,6,7,7,7,7,1,7,8,8,
%T 8,8,8,10,9,9,9,9,9,10,8,10,11,10,10,10,9,10,11,12,12,
%U 10,12,10,11,11,11,12,12,12,12,13,12,12,13,12,12-12,13,11,12,12,11,14,12,14
%N三角形数组:g(N,k)=区间[(k-1)/N,k/N]中分数部分(i*r)的数量,对于1<=i<=N^2,1<=k<=N,r=3-e。
%C见A194285。
%e前八行:
%第1页
%e二..二
%e 3..3..3
%e 3..4..5..4
%e 5..5..5.5.5.5
%e 6..7..5..7..5.6
%e 7..7..7.7.7.7.7
%e 8..8.8.8.8.8
%t r=3-E;
%t f[n_,k_,i_]:=如果[(k-1)/n<=分数部分[i*r]<k/n,1,0]
%t g[n,k_]:=和[f[n,k,i],{i,1,n^2}]
%t表格形式[表格[g[n,k],{n,1,14},{k,1,n}]]
%t压扁[%](*A194343*)
%Y参考A194343。
%K nonn,表格
%O 1,2号机组
%A_Clark Kimberling_,2011年8月22日
|