%I#4 2012年3月30日17:34:28

%S 1,1,1,1,6,1,1,23,1,1,48286,48,1,13841535384,1,13840，

%电话：76802303876803840,1146080921601843191843199216046080,1,1，

%电话：64512012902401935360258047819353601290240645120,1110321920643840

%N按行读取的三角形：T（N，m）=楼层[（m/N）*行（N）]。

%C行总和：A000165

%e{1}，

%e{1,1}，

%e{1，6，1}，

%e{1，23，23，1}，

%e{1，48，286，48，1}，

%电子{1384153515353534381}，

%电子{13840768023038768038401}，

%电子邮箱{14680921601843191843192160460801}，

%e{164512012902401935360258047819353601290240645120,1}，

%电子邮箱{11032192020643840309657603096575930965759 30965760 2064384010321920 1}，

%电子邮箱{118794560、371589120、557383680、743178240、-2、743188240、55738.3680、371589.120、185794560，1}

%t清除[v，n，row，f]；行[n]=2^n*n！；

%t f[n_，m_]=楼层[（m/n）*行[n]/2]；v[0]={1}；v[1]={1,1}；

%tv[n_]：=v[n]=如果[Mod[n，2]==0，连接[{1}，表[f[n，m]，{m，1，楼层[n/2]-1}]，{row[n]-2*总和[f[m，m]，

%t连接[{1}，表[f[n，m]，{m，1，地板[n/2]-1}]，{行[n]/2-总和[f[n,m]，}m，1、地板[n/2]-1}]-1，行[n]/2-总和[f[n，m]，{m，1，地面[n/2]-1}]-1}，表格[f[n，m]、{m，地板[n/2]-1，1，-1}]、{1}]；

%t表[v[n]，{n，0，10}]；压扁[%]

%K nonn，表

%0、5

%A _Roger L.Bagula_，2008年12月16日

%E编辑：N.J.A.Sloane，2009年1月31日