A225054 - OEIS

%I #7 Apr 28 2013 13:00:45

%S 0,1,1,1,1,1,1,3,3,1,1,1,1,1,1,1,3,2,2,3,1,1,1,1,1,1,1,1,1,7,5,3,3,5,

%T 7,1,1,7,1,7,4,7,1,7,1,1,3,0,2,4,4,2,0,3,1,1,1,1,1,1,1,1,1,1,1,1,1,3,

%U 11,9,6,6,6

%N Triangle read by rows: Eulerian numbers T(n,k) = A008292(n,k) reduced mod n+1.

%C The row sums are:

%C {0, 2, 3, 8, 5, 12, 7, 32, 36, 20, 11, 72, 13,...}

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/EulerianNumber.html">Eulerian Number</a>

%F t(n,m)=Mod(Eulerian(n+1,m),n+1)

%e Triangle begins:

%e {0},

%e {1,1},

%e {1,1,1},

%e {1,3,3,1},

%e {1,1,1,1,1},

%e {1,3,2,2,3,1},

%e {1,1,1,1,1,1,1},

%e {1,7,5,3,3,5,7,1},

%e {1,7,1,7,4,7,1,7,1},

%e {1,3,0,2,4,4,2,0,3,1},

%e {1,1,1,1,1,1,1,1,1,1,1},

%e {1,3,11,9,6,6,6,6,9,11,3,1},

%e {1,1,1,1,1,1,1,1,1,1,1,1,1}},

%e ...

%t Flatten[Table[Table[Mod[Eulerian[n+1,m],n+1],{m,0,n}],{n,0,12}]]

%Y Cf. A008292, A225043.

%K nonn,tabl

%O 0,8

%A _Roger L. Bagula_, Apr 26 2013