|
|
A053200
|
|
Binomial coefficients C(n,k) reduced modulo n, read by rows; T(0,0)=0 by convention.
|
|
13
|
|
|
0, 0, 0, 1, 0, 1, 1, 0, 0, 1, 1, 0, 2, 0, 1, 1, 0, 0, 0, 0, 1, 1, 0, 3, 2, 3, 0, 1, 1, 0, 0, 0, 0, 0, 0, 1, 1, 0, 4, 0, 6, 0, 4, 0, 1, 1, 0, 0, 3, 0, 0, 3, 0, 0, 1, 1, 0, 5, 0, 0, 2, 0, 0, 5, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 6, 4, 3, 0, 0, 0, 3, 4, 6, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1
(list;
table;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,13
|
|
COMMENTS
|
Pascal's triangle read by rows, where row n is read mod n.
A number n is a prime if and only if (1+x)^n == 1+x^n (mod n), i.e., if and only if the n-th row is 1,0,0,...,0,1. This result underlies the proof of Agrawal, Kayal and Saxena that there is a polynomial-time algorithm for primality testing. - N. J. A. Sloane, Feb 20 2004
|
|
LINKS
|
|
|
EXAMPLE
|
Row 4 = 1 mod 4, 4 mod 4, 6 mod 4, 4 mod 4, 1 mod 4 = 1, 0, 2, 0, 1.
Triangle begins:
0;
0,0;
1,0,1;
1,0,0,1;
1,0,2,0,1;
1,0,0,0,0,1;
1,0,3,2,3,0,1;
1,0,0,0,0,0,0,1;
1,0,4,0,6,0,4,0,1;
1,0,0,3,0,0,3,0,0,1;
1,0,5,0,0,2,0,0,5,0,1;
1,0,0,0,0,0,0,0,0,0,0,1;
1,0,6,4,3,0,0,0,3,4,6,0,1;
1,0,0,0,0,0,0,0,0,0,0,0,0,1;
|
|
MAPLE
|
f := n -> seriestolist( series( expand( (1+x)^n ) mod n, x, n+1)); # N. J. A. Sloane
|
|
MATHEMATICA
|
Flatten[Join[{0}, Table[Mod[Binomial[n, Range[0, n]], n], {n, 20}]]] (* Harvey P. Dale, Apr 29 2013 *)
|
|
PROG
|
(Haskell)
a053200 n k = a053200_tabl !! n !! k
a053200_row n = a053200_tabl !! n
a053200_tabl = [0] : zipWith (map . flip mod) [1..] (tail a007318_tabl)
|
|
CROSSREFS
|
Cf. A053214 (central terms, apart from initial 1).
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|