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.

A323774 Number of multiset partitions, whose parts are constant and all have the same sum, of integer partitions of n.

Original entry on oeis.org

1, 1, 3, 3, 7, 3, 12, 3, 16, 8, 14, 3, 39, 3, 16, 15, 40, 3, 50, 3, 54, 17, 20, 3, 135, 10, 22, 25, 73, 3, 129, 3, 119, 21, 26, 19, 273, 3, 28, 23, 217, 3, 203, 3, 123, 74, 32, 3, 590, 12, 106, 27, 154, 3, 370, 23, 343, 29, 38, 3, 963, 3, 40, 95, 450, 25, 467, 3
Offset: 0

Views

Author

Gus Wiseman, Jan 27 2019

Keywords

Comments

An unlabeled version of A279789.

Examples

			The a(1) = 1 through a(6) = 12 multiset partitions:
  (1)  (2)     (3)        (4)           (5)              (6)
       (11)    (111)      (22)          (11111)          (33)
       (1)(1)  (1)(1)(1)  (1111)        (1)(1)(1)(1)(1)  (222)
                          (2)(2)                         (3)(3)
                          (2)(11)                        (111111)
                          (11)(11)                       (3)(111)
                          (1)(1)(1)(1)                   (2)(2)(2)
                                                         (111)(111)
                                                         (2)(2)(11)
                                                         (2)(11)(11)
                                                         (11)(11)(11)
                                                         (1)(1)(1)(1)(1)(1)

Links

Crossrefs

Cf. A001970, A006171 (constant parts), A007716, A034729, A047966 (uniform partitions), A047968, A279787, A279789 (twice-partitions version), A305551 (equal part-sums), A306017, A319056, A323766, A323775, A323776.

Programs

  • Mathematica
    Table[Length[Join@@Table[Union[Sort/@Tuples[Select[IntegerPartitions[#],SameQ@@#&]&/@ptn]],{ptn,Select[IntegerPartitions[n],SameQ@@#&]}]],{n,30}]
  • PARI
    a(n) = if (n==0, 1, sumdiv(n, d, binomial(numdiv(d) + n/d - 1, n/d))); \\ Michel Marcus, Jan 28 2019

Formula

a(0) = 1; a(n) = Sum_{d|n} binomial(tau(d) + n/d - 1, n/d), where tau = A000005.

A323776 a(n) = Sum_{k = 1...n} binomial(k + 2^(n - k) - 1, k - 1).

Original entry on oeis.org

1, 3, 7, 16, 40, 119, 450, 2253, 15207, 139190, 1731703, 29335875, 677864041, 21400069232, 924419728471, 54716596051100, 4443400439075834, 495676372493566749, 76041424515817042402, 16060385520094706930608, 4674665948889147697184915
Offset: 1

Views

Author

Gus Wiseman, Jan 27 2019

Keywords

Comments

Number of multiset partitions of integer partitions of 2^(n - 1) whose parts are constant and have equal sums.

Examples

			The a(1) = 1 through a(4) = 16 partitions of partitions:
  (1)  (2)     (4)           (8)
       (11)    (22)          (44)
       (1)(1)  (1111)        (2222)
               (2)(2)        (4)(4)
               (2)(11)       (4)(22)
               (11)(11)      (22)(22)
               (1)(1)(1)(1)  (4)(1111)
                             (11111111)
                             (22)(1111)
                             (1111)(1111)
                             (2)(2)(2)(2)
                             (2)(2)(2)(11)
                             (2)(2)(11)(11)
                             (2)(11)(11)(11)
                             (11)(11)(11)(11)
                             (1)(1)(1)(1)(1)(1)(1)(1)

Links

Crossrefs

Cf. A000123, A001970, A002577, A006171, A007716, A034729, A047968, A279787, A279789, A305551, A306017, A319056, A323766, A323774, A323775.

Programs

  • Mathematica
    Table[Sum[Binomial[k+2^(n-k)-1,k-1],{k,n}],{n,20}]
  • PARI
    a(n) = sum(k=1, n, binomial(k+2^(n-k)-1, k-1)); \\ Michel Marcus, Jan 28 2019

A323765 Dirichlet convolution of the integer partition numbers A000041 with the strict partition numbers A000009.

Original entry on oeis.org

1, 1, 3, 5, 9, 10, 22, 20, 37, 44, 65, 68, 127, 119, 182, 226, 307, 335, 511, 544, 782, 913, 1171, 1359, 1908, 2121, 2738, 3286, 4174, 4821, 6305, 7182, 9108, 10739, 13195, 15548, 19465, 22397, 27477, 32423, 39448, 45843, 55995, 64871, 78343, 91761, 109325
Offset: 0

Views

Author

Gus Wiseman, Jan 27 2019

Keywords

Comments

Also the number of strict multiset partitions of constant multiset partitions of integer partitions of n.

Examples

			The a(1) = 1 through a(5) = 10 strict multiset partitions of constant multiset partitions of integer partitions:
  ((1))  ((2))     ((3))          ((4))             ((5))
         ((11))    ((21))         ((31))            ((41))
         ((1)(1))  ((111))        ((22))            ((32))
                   ((1)(1)(1))    ((211))           ((311))
                   ((1))((1)(1))  ((1111))          ((221))
                                  ((2)(2))          ((2111))
                                  ((11)(11))        ((11111))
                                  ((1)(1)(1)(1))    ((1)(1)(1)(1)(1))
                                  ((1))((1)(1)(1))  ((1))((1)(1)(1)(1))
                                                    ((1)(1))((1)(1)(1))

Links

Crossrefs

Cf. A000009, A000041, A001970, A034729, A047968, A050343, A316980, A319066, A323764, A323766, A323774.

Programs

  • Mathematica
    Join[{1}, Table[Sum[PartitionsQ[d]*PartitionsP[n/d],{d,Divisors[n]}],{n,1,100}]]

Formula

a(n) ~ exp(Pi*sqrt(2*n/3)) / (4*n*sqrt(3)). - Vaclav Kotesovec, Jan 28 2019

A323775 a(n) = Sum_{k = 1...n} k^(2^(n - k)).

Original entry on oeis.org

1, 3, 8, 30, 359, 72385, 4338080222, 18448597098193762732, 340282370354622283774333836315916425069, 115792089237316207213755562747271079374483128445080168204415615259394085515423
Offset: 1

Views

Author

Gus Wiseman, Jan 27 2019

Keywords

Comments

Number of ways to choose a constant integer partition of each part of a constant integer partition of 2^(n - 1).

Examples

			The a(1) = 1 through a(4) = 30 twice-partitions:
  (1)  (2)     (4)           (8)
       (11)    (22)          (44)
       (1)(1)  (1111)        (2222)
               (2)(2)        (4)(4)
               (11)(2)       (22)(4)
               (2)(11)       (4)(22)
               (11)(11)      (22)(22)
               (1)(1)(1)(1)  (1111)(4)
                             (4)(1111)
                             (11111111)
                             (1111)(22)
                             (22)(1111)
                             (1111)(1111)
                             (2)(2)(2)(2)
                             (11)(2)(2)(2)
                             (2)(11)(2)(2)
                             (2)(2)(11)(2)
                             (2)(2)(2)(11)
                             (11)(11)(2)(2)
                             (11)(2)(11)(2)
                             (11)(2)(2)(11)
                             (2)(11)(11)(2)
                             (2)(11)(2)(11)
                             (2)(2)(11)(11)
                             (11)(11)(11)(2)
                             (11)(11)(2)(11)
                             (11)(2)(11)(11)
                             (2)(11)(11)(11)
                             (11)(11)(11)(11)
                             (1)(1)(1)(1)(1)(1)(1)(1)

Crossrefs

Cf. A000123, A001970, A002577, A006171, A279787, A279789, A305551, A306017, A319056, A323766, A323774, A323776.

Programs

  • Mathematica
    Table[Sum[k^2^(n-k),{k,n}],{n,12}]
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.