%I#4 2012年3月30日17:31:16
%S 1,2,1,4,2,1,8,5,2,1,16,11,5,2,1.32,24,12,5,2,2,64,51,27,12,5,1128,
%电话:107,60,28,12,5,2,1256222131,63,28,12,5,2,1512457282140,64,28,
%U 12,5,2,11024935601307143,64,28,12,5,2,120481904127066616144
%N行读取的三角形:T(N,m)=二进制数N的个数+1个长度为m 1的数字作为子串。
%e T(4,2)=11,因为长度为5的16个二进制数字{10000、10001、10010、10011、10100、10101、10110、10111、11000、11001、11010、11011、11100、11101、11110、11111},11有“11”作为子串。
%e三角形开始:
%电子邮件
%e 0 1 0 0 0 0 00 0 0 0
%e 1 2 1 0 0 0 0 00 0 0 0
%e 2 4 2 1 0 0 0 0 00
%e 3 8 5 2 1 0 0 0 0
%e 4 16 11 5 2 1 0 0 0 0
%e 5 32 24 12 5 2 1 0 0 0
%t t[n_,m_]:=长度[Select[StringPosition[#,ToString[(10^m-1)/9]]和/@表格[ToString[FromDigits[IntegerDigits[i,2]],{i,2^n,2^(n+1)-1}],#!={} &]]; 扁平[表[T[n,m],{n,0,11},{m,n+1}]]
%Y第一列=A000079=2的幂,第二列=A027934=至少有一个偶数部分的n的组成数,最后一列=A045623=n+1的所有组成中的1的数目。
%Y参考A000079、A027934、A045623、A109434、A109435。
%K基,nonn,tabl
%0、2
%A _Robert G.Wilson v _,2005年6月27日
|