cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-4 of 4 results.

A053206 Row sums of A053203.

Original entry on oeis.org

2, 0, 6, 6, 2, 0, 14, 0, 30, 36, 46, 0, 26, 0, 54, 48, 46, 0, 110, 30, 54, 78, 126, 0, 212, 0, 222, 72, 2, 86, 134, 0, 78, 84, 214, 0, 398, 0, 278, 330, 278, 0, 542, 126, 222, 414, 378, 0, 620, 96, 590, 120, 350, 0, 734, 0, 870, 384, 894, 290, 458, 0, 150, 558, 742, 0, 1142
Offset: 6

Views

Author

Asher Auel, Dec 12 1999

Keywords

Examples

			a(6) = 3 + 0 + 0 + 3 = 6.

Links

Crossrefs

Cf. A053201, A053202, A053204.

Programs

Formula

a(n) = A053204(n) - n*((n+1) mod 2) - 2.
a(prime(n)) = 0, where prime(n) is the n-th prime.

Extensions

Corrected and extended by James Sellers, Dec 13 1999

A053200 Binomial coefficients C(n,k) reduced modulo n, read by rows; T(0,0)=0 by convention.

Original entry on oeis.org

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
Offset: 0

Views

Author

Asher Auel, Dec 12 1999

Keywords

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
A020475(n) = number of zeros in n-th row, for n > 0. - Reinhard Zumkeller, Jan 01 2013

Examples

			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;

Links

Crossrefs

Row sums give A053204. Cf. A053201, A053202, A053203, A007318 (Pascal's triangle).
Cf. also A092241.
Cf. A053214 (central terms, apart from initial 1).

Programs

  • 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)
-- Reinhard Zumkeller, Jul 10 2015, Jan 01 2013
  • 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 *)
  • PARI
    T(n,k)=if(n, binomial(n,k)%n, 0) \\ Charles R Greathouse IV, Feb 07 2017

Extensions

Corrected by T. D. Noe, Feb 08 2008
Edited by N. J. A. Sloane, Aug 29 2008 at the suggestion of R. J. Mathar

A053201 Pascal's triangle (excluding first, last element of each row) read by rows, row n read mod n.

Original entry on oeis.org

0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 3, 2, 3, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 6, 0, 4, 0, 0, 0, 3, 0, 0, 3, 0, 0, 0, 5, 0, 0, 2, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 6, 4, 3, 0, 0, 0, 3, 4, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7, 0, 7, 0, 7, 2, 7, 0, 7, 0, 7, 0, 0, 0, 5, 0, 3, 10, 0, 0, 10, 3, 0, 5, 0
Offset: 2

Views

Author

Asher Auel, Dec 12 1999

Keywords

Comments

Prime numbered rows contain all zeros.

Examples

			0; 0,0; 0,2,0; 0,0,0,0; 0,3,2,3,0; ...
row 6 = 6 mod 6, 15 mod 6, 20 mod 6, 15 mod 6, 6 mod 6 = 0, 3, 2, 3, 0

Links

Crossrefs

Row sums give A053205. Cf. A053200, A053202, A053203, A007318 (Pascal's triangle)
Cf. A053214 (central terms).

Programs

  • Haskell
    a053201 n k = a053201_tabl !! (n-2) !! (k-1)
a053201_row n = a053201_tabl !! (n-2)
a053201_tabl = zipWith (map . (flip mod)) [2..] a014410_tabl
-- Reinhard Zumkeller, Aug 17 2013
  • Mathematica
    row[n_] := Table[ Mod[ Binomial[n, k], n], {k, 1, n-1}]; Table[row[n], {n, 2, 15}] // Flatten (* Jean-François Alcover, Aug 12 2013 *)

Formula

T(n,k) = A014410(n,k) mod n, k=1..n-1.

Extensions

a(62) and a(68) corrected by T. D. Noe, Feb 08 2008

A053202 Pascal's triangle (excluding first, last two elements of each row) read by rows, row n read mod n.

Original entry on oeis.org

2, 0, 0, 3, 2, 3, 0, 0, 0, 0, 4, 0, 6, 0, 4, 0, 3, 0, 0, 3, 0, 5, 0, 0, 2, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 6, 4, 3, 0, 0, 0, 3, 4, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7, 0, 7, 0, 7, 2, 7, 0, 7, 0, 7, 0, 5, 0, 3, 10, 0, 0, 10, 3, 0, 5, 0, 8, 0, 12, 0, 8, 0, 6, 0, 8, 0, 12, 0, 8, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
Offset: 4

Views

Author

Asher Auel, Dec 12 1999

Keywords

Comments

Prime numbered rows contain all zeros.

Examples

			Triangle begins:
  2;
  0, 0;
  3, 2, 3;
  0, 0, 0, 0;
  4, 0, 6, 0, 4;
  ...
row 8 = 28 mod 8, 56 mod 8, 70 mod 8, 56 mod 8, 28 mod 8 = 4, 0, 6, 0, 4.

Links

Crossrefs

Sum of row n = A053205(n). Cf. A053200, A053201, A053203, A007318 (Pascal's triangle).

Programs

  • Haskell
    a053202 n k = a053202_tabl !! (n - 4) !! k
a053202_row n = a053202_tabl !! (n - 4)
a053202_tabl = zipWith (\k row -> take (k - 3) $ drop 2 row)
                       [4..] $ drop 4 a053200_tabl
-- Reinhard Zumkeller, Jan 24 2014
  • Mathematica
    Table[Mod[Binomial[n, k], n], {n, 4, 18}, {k, 2, n-2}] // Flatten (* Jean-François Alcover, Jun 06 2017 *)

Extensions

a(44) corrected by T. D. Noe, Feb 08 2008
Showing 1-4 of 4 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.