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-10 of 16 results. Next

A138496 Where record values occur in A003016.

Original entry on oeis.org

0, 1, 10, 120, 3003
Offset: 1

Views

Author

Reinhard Zumkeller, Mar 20 2008

Keywords

Comments

It appears that the record values are 0, 3, 4, 6, 8, 10, 12, ...
From M. F. Hasler, Feb 16 2023: (Start)
The numbers that appear 3 times in Pascal's triangle are the central binomial coefficients (A000984), except for the number 2 that is the only number to appear only once. For n = 1 there would be an infinite number of occurrences, but sequence A003016 counts only the occurrences of n in rows <= n so that n = 1 also gives 3.
All C(n,k) with 1 < k < n/2 (in particular triangular numbers A000217) appear at least 4 times; see A098564 for those appearing exactly 4 times.
Numbers that appear 5 or more times are quite rare, they are listed in A003015 with subsequence A098565 of those appearing exactly 6 times.
They are mostly C(n,k) with 2 < k < n/2 which are also triangular numbers, but some are also of the form C(n+1,k) = C(n,k+1) with 3 < k < n/2, and a subsequence of these has n and k given in terms of Fibonacci numbers. (End)

Programs

A085247 Duplicate of A003016.

Original entry on oeis.org

0, 3, 1, 2, 2, 2, 3, 2, 2, 2, 4, 2, 2, 2, 2, 4, 2, 2, 2, 2, 3, 4, 2, 2, 2, 2, 2, 2, 4, 2, 2, 2, 2, 2, 2
Offset: 0

Views

Author

Keywords

A003015 Numbers that occur 5 or more times in Pascal's triangle.

Original entry on oeis.org

1, 120, 210, 1540, 3003, 7140, 11628, 24310, 61218182743304701891431482520
Offset: 1

Views

Author

Keywords

Comments

The subject of a recent thread on sci.math. Apparently it has been known for many years that there are infinitely many numbers that occur at least 6 times in Pascal's triangle, namely the solutions to binomial(n,m-1) = binomial(n-1,m) given by n = F_{2k}*F_{2k+1}; m = F_{2k-1}*F_{2k} where F_i is the i-th Fibonacci number. The first of these outside the range of the existing database entry is {104 choose 39} = {103 choose 40} = 61218182743304701891431482520. - Christopher E. Thompson, Mar 09 2001
It may be that there are no terms that appear exactly 5 times in Pascal's triangle, in which case the title could be changed to "Numbers that occur 6 or more times in Pascal's triangle". - N. J. A. Sloane, Nov 24 2004
No other terms below 33*10^16 (David W. Wilson).
61218182743304701891431482520 really is the next term. Weger shows this and I checked it. - T. D. Noe, Nov 15 2004
Blokhuis et al. show that there are no other solutions less than 10^60, nor within the first 10^6 rows of Pascal's triangle other than those given by the parametric solution mentioned above. - Christopher E. Thompson, Jan 19 2018
See the b-file of A090162 for the explicit numbers produced by the parametric formula. - Jeppe Stig Nielsen, Aug 23 2020

References

  • L. Comtet, Advanced Combinatorics, Reidel, 1974, p. 93, #47.
  • N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Crossrefs

Cf. A182237, A098565 (subsequence).
Cf. A090162 (easy subsequence).

A065475 Natural numbers excluding 2.

Original entry on oeis.org

1, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77
Offset: 1

Views

Author

Labos Elemer, Nov 16 2001

Keywords

Comments

From the following 4 disjoint subsets of natural numbers A = {1}, B = {2}, OP = {odd primes}, C = {composites}, 16 sets are derivable: A000027 versus empty set, A002808 vs A008578, A065091 vs A065090, A000040 vs A018252, A006005 vs {{2} with A002808}, {1} vs {A000027 excluding 1}, {2} versus this sequence, {1, 2} versus Union[OP, C].
a(n) is the sum of the obvious divisors of n, which are 1 and n.
The natural numbers excluding 2 are the order numbers of magic squares. Order 2 magic squares do not exist. - William Walkington, Mar 12 2016
The numbers occurring at least twice in Pascal's triangle (A007318, A003016). - Rick L. Shepherd, Jun 05 2016
From Enrique Navarrete, Mar 03 2025: (Start)
a(n) is the number of binary strings of length n with at most one 0 and at least one 1. For example, the a(1)=1 string is 1 and the a(2)=3 strings are 01, 10, 11.
a(n) is also the number of ordered set partitions of an n-set into 2 sets such that the first set has at most one element and the second set has at least one element. (End)

Crossrefs

Programs

  • Magma
    &cat[[1],[n : n in [3..100]]]; // Wesley Ivan Hurt, Mar 13 2016
  • Maple
    printlevel := -1; a := [1]; T := x->LambertW(-x); f := series(((1+T(x)))/(1-T(x)), x, 77); for m from 3 to 77 do a := [op(a), op(2*m, f)] od; print(a); # Zerinvary Lajos, Mar 28 2009
  • Mathematica
    Join[{1}, Range[3, 100]] (* Wesley Ivan Hurt, Mar 13 2016 *)
    Drop[Range[100],{2}] (* Harvey P. Dale, Aug 11 2024 *)
  • PARI
    a(n)=n+(n>1) \\ Charles R Greathouse IV, Sep 01 2015
    
  • PARI
    x='x+O('x^99); Vec((1+x-x^2)/(1-x)^2) \\ Altug Alkan, Mar 26 2016
    

Formula

G.f.: x*(1+x-x^2)/(1-x)^2. - Paul Barry, Aug 05 2004
a(n) = A000203(n) - A048050(n).
a(n) = n+1 for n>1, a(n) = a(n-1)+1 for n>2. - Wesley Ivan Hurt, Mar 13 2016
E.g.f.: (x + 1)*(exp(x) - 1). - Ilya Gutkovskiy, Jun 05 2016
a(n) = n + [n>1], a(n) = 1+n-floor(1/n). - Alan Michael Gómez Calderón, May 12 2023

Extensions

Incorrect formula removed by Charles R Greathouse IV, Mar 18 2010

A059233 Number of rows in which n appears in Pascal's triangle A007318.

Original entry on oeis.org

1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 1, 2, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
Offset: 2

Views

Author

Fabian Rothelius, Jan 20 2001

Keywords

Comments

Central binomial coefficients c = A000984(n) > 1 appear once in the middle column C(2n, n), and thereafter in one or more later rows to the left as C(r,k) and to the right as C(r, r-k), k < r/2; the last time in row r = c = C(c,1) = C(c,c-1). For these, a(n) = (A003016(n)+1)/2. For all other numbers n > 1, a(n) = A003016(n)/2. - M. F. Hasler, Mar 01 2023

Examples

			6 appears in both row 4 and row 6 in Pascal's triangle, therefore a(6) = 2.
		

References

  • L. Comtet, Advanced Combinatorics, Reidel, 1974, p. 93, #47.
  • C. S. Ogilvy, Tomorrow's Math. 2nd ed., Oxford Univ. Press, 1972, p. 96.

Crossrefs

Programs

  • Haskell
    a059233 n = length $ filter (n `elem`) $
                                take (fromInteger n) $ tail a007318_tabl
    a059233_list = map a059233 [2..]
    -- Reinhard Zumkeller, Dec 24 2012
    
  • Mathematica
    nmax = 101; A007318 = Table[Binomial[n, k], {n, 0, nmax}, {k, 0, n}]; a[n_] := Position[A007318, n][[All, 1]] // Union // Length; Table[a[n], {n, 2, nmax}] (* Jean-François Alcover, Sep 09 2013 *)
  • PARI
    A059233(n)=A003016(n)\/2 \\ M. F. Hasler, Mar 01 2023

Formula

a(A180058(n)) = n and a(m) < n for m < A180058(n); a(A182237(n)) = 2; a(A098565(n)) = 3. - Reinhard Zumkeller, Dec 24 2012
a(n) = ceiling(A003016(n)/2). - M. F. Hasler, Mar 01 2023

A180058 Smallest number occurring in exactly n rows of Pascal's triangle.

Original entry on oeis.org

2, 6, 120, 3003
Offset: 1

Views

Author

Reinhard Zumkeller, Dec 24 2012

Keywords

Comments

A059233(a(n)) = n and A059233(m) < n for m < a(n).

Examples

			.  n  A180058  referred equal binomial coefficients (A007318)  A059233
.  -  -------  ----------------------------------------------  -------
.  1        2   C (2, 1)                                             1
.  2        6   C (4, 2)   C (6, 1)                                  2
.  3      120   C (10, 3)  C (16, 2)  C (120, 1)                     3
.  4     3003   C (14, 6)  C (15, 5)  C (78, 2)   C (3003, 1)        4 .
		

Crossrefs

Programs

  • Haskell
    import Data.List (elemIndex)
    import Data.Maybe (fromJust)
    a180058 = (+ 2) . fromJust . (`elemIndex` a059233_list)

A100967 Least k such that binomial(2k + 1, k - n) >= binomial(2k, k).

Original entry on oeis.org

3, 9, 18, 29, 44, 61, 81, 104, 130, 159, 191, 225, 263, 303, 347, 393, 442, 494, 549, 606, 667, 730, 797, 866, 938, 1013, 1091, 1172, 1255, 1342, 1431, 1524, 1619, 1717, 1818, 1922, 2029, 2138, 2251, 2366, 2485, 2606, 2730, 2857, 2987, 3119, 3255, 3394, 3535
Offset: 1

Views

Author

T. D. Noe, Nov 23 2004

Keywords

Comments

From the formula, if we know k, we can estimate n as approximately 0.83 sqrt(k).
Open question: Does binomial(2*a(n) + 1, a(n) - n) = binomial(2*a(n), a(n)) for any n? An affirmative answer would settle whether there exists an odd term greater than 3 in A003016. - Danny Rorabaugh, Mar 16 2016

Crossrefs

Cf. A000984, A003015 (numbers that occur 5 or more times in Pascal's triangle).

Programs

  • Maple
    F:= proc(n) local Q, LQ, k, k0;
         LQ:= -ln(GAMMA(k-n+1))-ln(GAMMA(k+1+n))-ln(k+1+n)+ln(2*k+1)+2*ln(GAMMA(k+1));
          k0:= floor(fsolve(LQ, k=n..max(2*n^2, 9)));
          if (2*k0+1)*binomial(k0, n) >= (n+1)*binomial(k0+1+n, n+1)  then
            while (2*k0-1)*binomial(k0-1, n) >= (n+1)*binomial(k0+n, n+1) do k0:= k0-1 od
          else
            while (2*k0+1)*binomial(k0, n) < (n+1)*binomial(k0+1+n, n+1) do k0:= k0+1 od;
          fi;
          k0;
    end proc:
    map(F, [$1..100]); # Robert Israel, Mar 16 2016
  • Mathematica
    k=1; Table[While[Binomial[2k+1, k-n] < Binomial[2k, k], k++ ]; k, {n, 50}]
  • PARI
    a(n,k=n+1)=while((2*k+1)*k!^2<(n+k+2)!*(k-n-1)!,k++);k \\ Charles R Greathouse IV, Sep 09 2013

Formula

Round(0.3807 + 1.43869 n + 1.44276 n^2) is an exact fit for the first 50 terms.
As n -> infinity, we have a(n) = (n^2+n)/log(2) + o(n). - Robert Israel, Mar 16 2016

A240057 Number of partitions of n such that (greatest part) is not = (multiplicity of greatest part).

Original entry on oeis.org

0, 2, 3, 4, 6, 10, 14, 21, 28, 40, 53, 74, 97, 131, 171, 225, 290, 377, 480, 616, 779, 987, 1238, 1556, 1935, 2411, 2981, 3685, 4527, 5562, 6793, 8295, 10081, 12241, 14805, 17890, 21538, 25906, 31062, 37201, 44429, 53004, 63070, 74964, 88898, 105297
Offset: 1

Views

Author

Clark Kimberling, Apr 02 2014

Keywords

Comments

Let # denote "number of" and c(p) = conjugate of partitionp. Then
A240057(n) = # p such that min(p) not = max(c(p));
A039899(n) = # p such that min(p) < max(c(p));
A039900(n) = # p such that min(p) <= max(c(p));
A006141(n) = # p such that min(p) = max(c(p));
A003114(n) = # p such that min(p) > max(c(p));
A003016(n) = # p such that min(p) >= max(c(p));
A064173(n) = # p such that max(p) < max(c(p));
A064174(n) = # p such that max(p) <= max(c(p));
A047993(n) = # p such that max(p) = max(c(p)).
See A240178 for related sequences. - Clark Kimberling, Apr 11 2014

Examples

			a(9) = 28 counts all the 30 partitions of 9 except 333 and 2211111.
		

Crossrefs

Programs

  • Maple
    b:= proc(n, i) option remember; `if`(n<0, 0, `if`(n=0, 1,
          `if`(i<1, 0, b(n, i-1)+`if`(i>n, 0, b(n-i, i)))))
        end:
    a:= n->combinat[numbpart](n)-add(b(n-j^2, j-1), j=0..isqrt(n)):
    seq(a(n), n=1..50);  # Alois P. Heinz, Apr 03 2014
  • Mathematica
    z = 60; f[n_] := f[n] = IntegerPartitions[n];
    t1 = Table[Count[f[n], p_ /; Max[p] < Count[p, Max[p]]], {n, 0, z}]  (* A003106 *)
    t2 = Table[Count[f[n], p_ /; Max[p] <= Count[p, Max[p]]], {n, 0, z}] (* A003114 *)
    t3 = Table[Count[f[n], p_ /; Max[p] == Count[p, Max[p]]], {n, 0, z}] (* A006141 *)
    tt = Table[Count[f[n], p_ /; Max[p] != Count[p, Max[p]]], {n, 0, z}] (* A240057 *)
    t4 = Table[Count[f[n], p_ /; Max[p] > Count[p, Max[p]]], {n, 0, z}] (* A039899 *)
    t5 = Table[Count[f[n], p_ /; Max[p] >= Count[p, Max[p]]], {n, 0, z}] (* A039900 *)
    (* second program: *)
    b[n_, i_] := b[n, i] = If[n < 0, 0, If[n == 0, 1, If[i < 1, 0, b[n, i - 1] + If[i > n, 0, b[n - i, i]]]]];
    a[n_] := PartitionsP[n] - Sum[b[n - j^2, j - 1], {j, 0, Sqrt[n]}];
    Table[a[n], {n, 1, 50}] (* Jean-François Alcover, Aug 30 2016, after Alois P. Heinz *)

Formula

a(n) + A006141(n) = A000041(n) for n > 0.

A333868 The number of ways to write n as the difference of two k-simplex numbers for k >= 2.

Original entry on oeis.org

1, 3, 3, 4, 5, 4, 3, 6, 7, 4, 4, 4, 5, 9, 4, 4, 5, 5, 7, 9, 4, 4, 4, 6, 4, 7, 7, 4, 7, 5, 3, 6, 6, 11, 9, 4, 4, 6, 4, 4, 6, 4, 5, 11, 5, 4, 4, 6, 6, 6, 5, 4, 7, 12, 8, 6, 4, 4, 6, 4, 4, 8, 5, 8, 9, 4, 4, 7, 8, 4, 5, 4, 5, 8, 4, 8, 9, 4, 5, 8, 4, 6, 10, 7, 4, 6
Offset: 2

Views

Author

Peter Kagey, Apr 08 2020

Keywords

Comments

a(n) >= A001227(n) + A307666(n).
a(n) >= A003016(n) + A003016(n+1) - 2.
Records occur at indices 2, 3, 5, 6, 9, 10, 15, 35, 55, 105, 210, 1365, 2925, 3003,...

Examples

			The a(9) = 6 ways to write 9 as the difference of k-simplex numbers for k > 2 are:
C(5,  2) - C(2, 2) = 10 -  1,
C(6,  2) - C(4, 2) = 15 -  6,
C(10, 2) - C(9, 2) = 45 - 36,
C(5,  3) - C(3, 3) = 10 -  1,
C(9,  8) - C(7, 8) =  9 -  0, and
C(10, 9) - C(9, 9) = 10 -  1,
where C(n,k) = binomial(n,k) = A007318(n,k).
		

Crossrefs

The k-simplex numbers for 2 <= k <= 6 are A000217 (k=2), A000292 (k=3), A000332 (k=4), A000389 (k=5), and A000579 (k=6).

A360653 Irregular table read by rows; the first row contains the value 1, and for n > 1, the n-th row lists the numbers of the form binomial(m-1, k) such that binomial(m, k) = n.

Original entry on oeis.org

1, 1, 1, 2, 1, 3, 1, 4, 1, 3, 5, 1, 6, 1, 7, 1, 8, 1, 4, 6, 9, 1, 10, 1, 11, 1, 12, 1, 13, 1, 5, 10, 14, 1, 15, 1, 16, 1, 17, 1, 18, 1, 10, 19, 1, 6, 15, 20, 1, 21, 1, 22, 1, 23, 1, 24, 1, 25, 1, 26, 1, 7, 21, 27, 1, 28, 1, 29, 1, 30, 1, 31, 1, 32, 1, 33, 1, 15, 20, 34
Offset: 1

Views

Author

Rémy Sigrist, Feb 15 2023

Keywords

Comments

In other words, the n-th rows lists the numbers that appear directly above n in Pascal's triangle (A007318).
The n-th row starts with 1, ends with n-1 (provided that n > 1), and contains other values iff n belongs to A006987.

Examples

			Table begins:
  n   n-th row
  --  -------------
   1  1
   2  1
   3  1, 2
   4  1, 3
   5  1, 4
   6  1, 3, 5
   7  1, 6
   8  1, 7
   9  1, 8
  10  1, 4, 6, 9
  11  1, 10
.
For n = 6:
    Pascal's triangle begins as follows:
                     1
                   1   1
                 1   2   1
               1   3   3   1
             1   4   6   4   1
           1   5  10  10   5   1
         1   6  15  20  15   6   1
    we find the value 6 in row 4 below 3 and 3, and in row 6 below 1 and 5,
    so the 6th row contains 1, 3 and 5.
		

Crossrefs

Programs

  • PARI
    See Links section.
Showing 1-10 of 16 results. Next