A081371 - OEIS

%I #8 Feb 01 2017 14:16:13

%S 0,0,1,0,1,1,0,0,1,1,0,0,1,1,1,0,1,2,3,1,1,0,1,2,3,1,1,1,0,0,2,2,1,4,

%T 1,1,0,0,0,2,1,0,1,1,1,0,1,0,2,2,0,1,5,1,1,0,1,0,2,2,0,1,5,1,1,1,0,0,

%U 1,3,2,0,1,7,4,6,1,1,0,0,1,3,2,0,1,7,4,6,1,1,1,0,1,1,1,2,3,2,3,4,1,1,7,1,1

%N Binomial coefficients C[n,j] reduced modulo j, j=1,...n; read by rows, j=0 is omitted because of mod[n,0].

%H Michel Marcus, <a href="/A081371/b081371.txt">Rows n = 1..100 of triangle, flattened</a>

%e Triangle begins:

%e 0,

%e 0,1,

%e 0,1,1,

%e 0,0,1,1,

%e 0,0,1,1,1,

%e 0,1,2,3,1,1,

%e 0,1,2,3,1,1,1,

%t Flatten[Table[Table[Mod[Binomial[n, j], j], {j, 1, n}], {n, 1, 50}], 1]

%o (PARI) tabl(nn)=for(n=1, nn, for (k=1, n, print1(binomial(n, k) % k, ", ")); print) \\ _Michel Marcus_, Feb 01 2017

%Y Cf. A007318.

%K nonn,tabl

%O 1,18

%A _Labos Elemer_, Mar 21 2003