%I A152969
%S A152969 1,1,1,1,6,1,1,23,23,1,1,48,286,48,1,1,384,1535,1535,384,1,1,3840,7680,
%T A152969 23038,7680,3840,1,1,46080,92160,184319,184319,92160,46080,1,1,645120,
%U A152969 1290240,1935360,2580478,1935360,1290240,645120,1,1,10321920,20643840
%N A152969 Triangle read by rows: T(n,m)=floor[(m/n)*row(n)].
%C A152969 Row sums: A000165
%e A152969 {1},
%e A152969 {1, 1},
%e A152969 {1, 6, 1},
%e A152969 {1, 23, 23, 1},
%e A152969 {1, 48, 286, 48, 1},
%e A152969 {1, 384, 1535, 1535, 384, 1},
%e A152969 {1, 3840, 7680, 23038, 7680, 3840, 1},
%e A152969 {1, 46080, 92160, 184319, 184319, 92160, 46080, 1},
%e A152969 {1, 645120, 1290240, 1935360, 2580478, 1935360, 1290240, 645120, 1},
%e A152969 {1, 10321920, 20643840, 30965760, 30965759, 30965759, 30965760, 20643840, 
               10321920, 1},
%e A152969 {1, 185794560, 371589120, 557383680, 743178240, -2, 743178240, 557383680, 
               371589120, 185794560, 1}
%t A152969 Clear[v, n, row, f]; row[n_] = 2^n*n!;
%t A152969 f[n_, m_] = Floor[(m/n)*row[n]/2]; v[0] = {1}; v[1] = {1, 1};
%t A152969 v[n_] := v[n] = If[Mod[n, 2] == 0, Join[{1}, Table[ f[n, m], {m, 1, Floor[ 
               n/2] - 1}], {row[n] - 2*Sum[ f[n, m], {m, 1, Floor[n/2] - 1}] - 2}, 
               Table[ f[n, m], {m, Floor[n/ 2] - 1, 1, -1}], { 1}],
%t A152969 Join[{1}, Table[ f[n, m], {m, 1, Floor[n/2] - 1}], {row[n]/2 - Sum[ f[n, 
               m], { m, 1, Floor[n/2] - 1}] - 1, row[n]/ 2 - Sum[ f[n, m], {m, 1, 
               Floor[ n/2] - 1}] - 1}, Table[ f[n, m], {m, Floor[n/ 2] - 1, 1, -1}], 
               {1}]];
%t A152969 Table[v[n], {n, 0, 10}]; Flatten[%]
%Y A152969 Sequence in context: A142596 A155467 A152936 this_sequence A060187 A156139 
               A155863
%Y A152969 Adjacent sequences: A152966 A152967 A152968 this_sequence A152970 A152971 
               A152972
%K A152969 nonn,tabl
%O A152969 0,5
%A A152969 Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Dec 16 2008
%E A152969 Edited by N. J. A. Sloane (njas(AT)research.att.com), Jan 31 2009