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-5 of 5 results.

A065349 Positions of zeros in A065346.

Original entry on oeis.org

19, 41, 42, 43, 49, 50, 53, 54, 55, 58, 67, 71, 74, 75, 95, 97, 98, 99, 102, 103, 123, 135, 138, 139, 145, 149, 153, 154, 155, 159, 163, 165, 166, 167, 168, 169, 170, 173, 174, 175, 178, 179, 180, 183, 184, 185, 191, 193, 194, 195, 197, 198, 199, 200, 201, 202
Offset: 1

Views

Author

Labos Elemer, Oct 30 2001

Keywords

Crossrefs

Programs

  • Mathematica
    ris = {}; Do[If[Mod[Binomial[2 n, n], (n + 1) (n + 2) (n + 3) (n + 4)] == 0, AppendTo[ris, n]], {n, 250}]; ris (* Bruno Berselli, Jan 06 2014 *)
  • PARI
    isok(k) = { binomial(2*k, k) % ((k + 1)*(k + 2)*(k + 3)*(k + 4)) == 0 } \\ Harry J. Smith, Oct 17 2009

A065344 a(n) = binomial(2*n,n) mod ((n+1)*(n+2)).

Original entry on oeis.org

2, 6, 0, 10, 0, 28, 48, 0, 0, 88, 0, 0, 140, 120, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 468, 0, 0, 580, 0, 496, 704, 0, 0, 420, 0, 0, 494, 0, 0, 574, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2016, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4320, 0, 0, 4648, 0, 0, 4988, 0, 0
Offset: 1

Views

Author

Labos Elemer, Oct 30 2001

Keywords

Crossrefs

Programs

  • Mathematica
    Table[Mod[Binomial[2 n, n], (n + 1) (n + 2)], {n, 100}] (* Bruno Berselli, Jan 06 2014 *)
  • PARI
    a(n) = { binomial(2*n, n) % ((n + 1)*(n + 2)) } \\ Harry J. Smith, Oct 17 2009

A065345 a(n) = binomial(2*n,n) mod ((n+1)*(n+2)*(n+3)).

Original entry on oeis.org

2, 6, 20, 70, 252, 420, 552, 0, 1100, 1144, 0, 1456, 1400, 2040, 2448, 0, 3420, 0, 0, 0, 6072, 5520, 0, 5850, 13104, 0, 12992, 17980, 22320, 27280, 5984, 7854, 7140, 15540, 0, 36556, 13832, 0, 45920, 24682, 0, 0, 0, 0, 51888, 0, 23520, 0, 0, 0, 0, 94446, 0, 0, 0
Offset: 1

Views

Author

Labos Elemer, Oct 30 2001

Keywords

Crossrefs

Programs

  • Mathematica
    Table[Mod[Binomial[2 n, n], (n + 1) (n + 2) (n + 3)], {n, 60}] (* Harvey P. Dale, Feb 21 2012 *)
  • PARI
    a(n) = { binomial(2*n, n) % ((n + 1)*(n + 2)*(n + 3)) } \\ Harry J. Smith, Oct 17 2009

A065347 Positions of zeros in A065344, i.e., binomial(2n,n) mod ((n+1)*(n+2)) = 0.

Original entry on oeis.org

3, 5, 8, 9, 11, 12, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 26, 27, 29, 32, 33, 35, 36, 38, 39, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 80, 81, 83, 84, 86, 87, 89, 90
Offset: 1

Views

Author

Labos Elemer, Oct 30 2001

Keywords

Crossrefs

Programs

  • Mathematica
    ris = {}; Do[If[Mod[Binomial[2 n, n], (n + 1) (n + 2)] == 0, AppendTo[ris, n]], {n, 100}]; ris (* Bruno Berselli, Jan 06 2014 *)
  • PARI
    isok(k) = { binomial(2*k, k) % ((k + 1)*(k + 2)) == 0 } \\ Harry J. Smith, Oct 17 2009

A065348 Positions of zeros in A065345.

Original entry on oeis.org

8, 11, 16, 18, 19, 20, 23, 26, 35, 38, 41, 42, 43, 44, 46, 48, 49, 50, 51, 53, 54, 55, 56, 58, 59, 60, 64, 66, 67, 68, 70, 71, 72, 73, 74, 75, 76, 80, 83, 86, 89, 92, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 107, 110, 113, 116, 119, 123, 124, 128, 130, 131, 134
Offset: 1

Views

Author

Labos Elemer, Oct 30 2001

Keywords

Crossrefs

Programs

  • Mathematica
    ris = {}; Do[If[Mod[Binomial[2 n, n], (n + 1) (n + 2) (n + 3)] == 0,
    AppendTo[ris, n]], {n, 150}]; ris (* Bruno Berselli, Jan 06 2014 *)
  • PARI
    isok(k) = { binomial(2*k, k) % ((k + 1)*(k + 2)*(k + 3)) == 0 } \\ Harry J. Smith, Oct 17 2009
Showing 1-5 of 5 results.