%I A156049
%S A156049 1,1,1,1,4,1,1,11,11,1,1,40,48,40,1,1,197,236,236,197,1,1,1206,1405,
%T A156049 1438,1405,1206,1,1,8647,9859,10057,10057,9859,8647,1,1,70568,79226,
%U A156049 80446,80616,80446,79226,70568,1,1,645129,715714,724394,725600,725600
%N A156049 Triangle read by rows: t(n,m)=Binomial[n, m] + 2*(1 + n! - m! - (n - 
               m)!).
%C A156049 Row sum are:(n+1)!+f(n);
%C A156049 {1, 2, 6, 24, 130, 868, 6662, 57128, 541098, 5621676, 63682990,...}.
%C A156049 Sequence designed to be Eulerian numbers like:
%C A156049 the result is slightly larger.
%F A156049 t(n,m)=Binomial[n, m] + 2*(1 + n! - m! - (n - m)!).
%e A156049 {1},
%e A156049 {1, 1},
%e A156049 {1, 4, 1},
%e A156049 {1, 11, 11, 1},
%e A156049 {1, 40, 48, 40, 1},
%e A156049 {1, 197, 236, 236, 197, 1},
%e A156049 {1, 1206, 1405, 1438, 1405, 1206, 1},
%e A156049 {1, 8647, 9859, 10057, 10057, 9859, 8647, 1},
%e A156049 {1, 70568, 79226, 80446, 80616, 80446, 79226, 70568, 1},
%e A156049 {1, 645129, 715714, 724394, 725600, 725600, 724394, 715714, 645129, 1},
%e A156049 {1, 6531850, 7177003, 7247630, 7256324, 7257374, 7256324, 7247630, 7177003, 
               6531850, 1}
%t A156049 Clear[f];
%t A156049 f[n_, m_] = Binomial[n, m] + 2*(1 + n! - m! - (n - m)!);
%t A156049 Table[Table[f[n, m], {m, 0, n}], {n, 0, 10}];
%t A156049 Flatten[%]
%Y A156049 Sequence in context: A008292 A157221 A146967 this_sequence A101919 A055106 
               A154372
%Y A156049 Adjacent sequences: A156046 A156047 A156048 this_sequence A156050 A156051 
               A156052
%K A156049 nonn,tabl,uned
%O A156049 0,5
%A A156049 Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Feb 02 2009