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.

Previous Showing 41-50 of 81 results. Next

A360251 Number of integer partitions of n where the parts have lesser mean than the distinct parts.

Original entry on oeis.org

0, 0, 0, 0, 1, 2, 3, 7, 9, 16, 22, 34, 44, 69, 88, 118, 163, 221, 280, 376, 473, 619, 800, 1016, 1257, 1621, 2038, 2522, 3117, 3921, 4767, 5964, 7273, 8886, 10838, 13141, 15907, 19468, 23424, 28093, 33656, 40672, 48273, 58171, 68944, 81888, 97596, 115643
Offset: 0

Views

Author

Gus Wiseman, Feb 06 2023

Keywords

Examples

			The a(4) = 1 through a(9) = 16 partitions:
  (211)  (311)   (411)    (322)     (422)      (522)
         (2111)  (3111)   (511)     (611)      (711)
                 (21111)  (3211)    (4211)     (3222)
                          (4111)    (5111)     (4221)
                          (22111)   (32111)    (4311)
                          (31111)   (41111)    (5211)
                          (211111)  (221111)   (6111)
                                    (311111)   (32211)
                                    (2111111)  (33111)
                                               (42111)
                                               (51111)
                                               (321111)
                                               (411111)
                                               (2211111)
                                               (3111111)
                                               (21111111)
For example, the partition y = (4,2,2,1) has mean 9/4 and distinct parts {1,2,4} with mean 7/3, so y is counted under a(9).
		

Crossrefs

For unequal instead of less we have A360242, ranks A360246.
For equal instead of less we have A360243, ranks A360247.
For greater instead of less we have A360250, ranks A360252.
These partitions have ranks A360253.
A000041 counts integer partitions, strict A000009.
A008284 counts partitions by number of parts.
A058398 counts partitions by mean, also A327482.
A067538 counts partitions with integer mean, strict A102627, ranks A316413.
A116608 counts partitions by number of distinct parts.
A240219 counts partitions with mean equal to median, ranks A359889.
A359894 counts partitions with mean different from median, ranks A359890.
A360071 counts partitions by number of parts and number of distinct parts.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n],Mean[#]
    				

Formula

a(n) + A360250(n) = A360242(n).
a(n) + A360250(n) + A360243(n) = A000041(n).

A361906 Number of integer partitions of n such that (length) * (maximum) >= 2*n.

Original entry on oeis.org

0, 0, 0, 0, 0, 2, 3, 5, 9, 15, 19, 36, 43, 68, 96, 125, 171, 232, 297, 418, 529, 676, 853, 1156, 1393, 1786, 2316, 2827, 3477, 4484, 5423, 6677, 8156, 10065, 12538, 15121, 17978, 22091, 26666, 32363, 38176, 46640, 55137, 66895, 79589, 92621, 111485, 133485
Offset: 1

Views

Author

Gus Wiseman, Mar 29 2023

Keywords

Comments

Also partitions such that (maximum) >= 2*(mean).
These are partitions whose complement (see example) has size >= n.

Examples

			The a(6) = 2 through a(10) = 15 partitions:
  (411)   (511)    (611)     (621)      (721)
  (3111)  (4111)   (4211)    (711)      (811)
          (31111)  (5111)    (5211)     (5221)
                   (41111)   (6111)     (5311)
                   (311111)  (42111)    (6211)
                             (51111)    (7111)
                             (321111)   (42211)
                             (411111)   (43111)
                             (3111111)  (52111)
                                        (61111)
                                        (421111)
                                        (511111)
                                        (3211111)
                                        (4111111)
                                        (31111111)
The partition y = (4,2,1,1) has length 4 and maximum 4, and 4*4 >= 2*8, so y is counted under a(8).
The partition y = (3,2,1,1) has length 4 and maximum 3, and 4*3 is not >= 2*7, so y is not counted under a(7).
The partition y = (3,2,1,1) has diagram:
  o o o
  o o .
  o . .
  o . .
with complement (shown in dots) of size 5, and 5 is not >= 7, so y is not counted under a(7).
		

Crossrefs

For length instead of mean we have A237752, reverse A237755.
For minimum instead of mean we have A237821, reverse A237824.
For median instead of mean we have A361859, reverse A361848.
The unequal case is A361907.
The complement is counted by A361852.
The equal case is A361853, ranks A361855.
Reversing the inequality gives A361851.
A000041 counts integer partitions, strict A000009.
A008284 counts partitions by length, A058398 by mean.
A051293 counts subsets with integer mean.
A067538 counts partitions with integer mean, strict A102627, ranks A316413.
A268192 counts partitions by complement size, ranks A326844.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n],Length[#]*Max@@#>=2n&]],{n,30}]

A361907 Number of integer partitions of n such that (length) * (maximum) > 2*n.

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 3, 4, 7, 11, 19, 26, 43, 60, 80, 115, 171, 201, 297, 374, 485, 656, 853, 1064, 1343, 1758, 2218, 2673, 3477, 4218, 5423, 6523, 7962, 10017, 12104, 14409, 17978, 22031, 26318, 31453, 38176, 45442, 55137, 65775, 77451, 92533, 111485, 131057
Offset: 1

Views

Author

Gus Wiseman, Mar 29 2023

Keywords

Comments

Also partitions such that (maximum) > 2*(mean).
These are partitions whose complement (see example) has size > n.

Examples

			The a(7) = 3 through a(10) = 11 partitions:
  (511)    (611)     (711)      (721)
  (4111)   (5111)    (5211)     (811)
  (31111)  (41111)   (6111)     (6211)
           (311111)  (42111)    (7111)
                     (51111)    (52111)
                     (411111)   (61111)
                     (3111111)  (421111)
                                (511111)
                                (3211111)
                                (4111111)
                                (31111111)
The partition y = (3,2,1,1) has length 4 and maximum 3, and 4*3 is not > 2*7, so y is not counted under a(7).
The partition y = (4,2,1,1) has length 4 and maximum 4, and 4*4 is not > 2*8, so y is not counted under a(8).
The partition y = (5,1,1,1) has length 4 and maximum 5, and 4*5 > 2*8, so y is counted under a(8).
The partition y = (5,2,1,1) has length 4 and maximum 5, and 4*5 > 2*9, so y is counted under a(9).
The partition y = (3,2,1,1) has diagram:
  o o o
  o o .
  o . .
  o . .
with complement (shown in dots) of size 5, and 5 is not > 7, so y is not counted under a(7).
		

Crossrefs

For length instead of mean we have A237751, reverse A237754.
For minimum instead of mean we have A237820, reverse A053263.
The complement is counted by A361851, median A361848.
Reversing the inequality gives A361852.
The equal version is A361853.
For median instead of mean we have A361857, reverse A361858.
Allowing equality gives A361906, median A361859.
A000041 counts integer partitions, strict A000009.
A008284 counts partitions by length, A058398 by mean.
A051293 counts subsets with integer mean.
A067538 counts partitions with integer mean, strict A102627, ranks A316413.
A116608 counts partitions by number of distinct parts.
A268192 counts partitions by complement size, ranks A326844.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n],Length[#]*Max@@#>2n&]],{n,30}]

A271654 a(n) = Sum_{k|n} binomial(n-1,k-1).

Original entry on oeis.org

1, 2, 2, 5, 2, 17, 2, 44, 30, 137, 2, 695, 2, 1731, 1094, 6907, 2, 30653, 2, 97244, 38952, 352739, 2, 1632933, 10628, 5200327, 1562602, 20357264, 2, 87716708, 2, 303174298, 64512738, 1166803145, 1391282, 4978661179, 2, 17672631939, 2707475853, 69150651910, 2, 286754260229, 2, 1053966829029, 115133177854, 4116715363847, 2, 16892899722499, 12271514, 63207357886437
Offset: 1

Views

Author

Keywords

Comments

Also the number of compositions of n whose length divides n, i.e., compositions with integer mean, ranked by A096199. - Gus Wiseman, Sep 28 2022

Examples

			From _Gus Wiseman_, Sep 28 2022: (Start)
The a(1) = 1 through a(6) = 17 compositions with integer mean:
  (1)  (2)    (3)      (4)        (5)          (6)
       (1,1)  (1,1,1)  (1,3)      (1,1,1,1,1)  (1,5)
                       (2,2)                   (2,4)
                       (3,1)                   (3,3)
                       (1,1,1,1)               (4,2)
                                               (5,1)
                                               (1,1,4)
                                               (1,2,3)
                                               (1,3,2)
                                               (1,4,1)
                                               (2,1,3)
                                               (2,2,2)
                                               (2,3,1)
                                               (3,1,2)
                                               (3,2,1)
                                               (4,1,1)
                                               (1,1,1,1,1,1)
(End)
		

Crossrefs

Cf. A056045.
The version for nonempty subsets is A051293, geometric A326027.
The version for partitions is A067538, ranked by A316413, strict A102627.
These compositions are ranked by A096199.
The version for factorizations is A326622, geometric A326028.
A011782 counts compositions.
A067539 = partitions w integer geo mean, ranked by A326623, strict A326625.
A100346 counts compositions into divisors, partitions A018818.

Programs

  • Maple
    a:= n-> add(binomial(n-1, d-1), d=numtheory[divisors](n)):
    seq(a(n), n=1..50);  # Alois P. Heinz, Dec 03 2023
  • Mathematica
    Table[Length[Join @@ Permutations/@Select[IntegerPartitions[n],IntegerQ[Mean[#]]&]],{n,15}] (* Gus Wiseman, Sep 28 2022 *)
  • PARI
    a(n)=sumdiv(n,k,binomial(n-1,k-1))

A340827 Number of strict integer partitions of n into divisors of n whose length also divides n.

Original entry on oeis.org

1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 2, 1, 2, 1, 1, 1, 5, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 5, 1, 1, 1, 3, 1, 2, 1, 1, 1, 1, 1, 6, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 25, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 18, 1, 1, 1, 1, 1, 2, 1, 3, 1, 1, 1, 17, 1, 1, 1, 1, 1, 14, 1, 1, 1, 1, 1, 12, 1, 1, 1, 3, 1, 2, 1, 1, 1
Offset: 1

Views

Author

Gus Wiseman, Feb 01 2021

Keywords

Comments

The first element not in A326715 that is however a Heinz number of these partitions is 273.

Examples

			The a(n) partitions for n = 6, 12, 24, 90, 84:
  6       12        24            90                      84
  3,2,1   6,4,2     12,8,4        45,30,15                42,28,14
          6,3,2,1   12,6,4,2      45,30,9,5,1             42,21,14,7
                    12,8,3,1      45,18,15,9,3            42,28,12,2
                    8,6,4,3,2,1   45,30,10,3,2            42,28,6,4,3,1
                                  45,18,15,10,2           42,28,7,4,2,1
                                  45,30,6,5,3,1           42,14,12,7,6,3
                                  45,30,9,3,2,1           42,21,12,4,3,2
                                  45,15,10,9,6,5          42,21,12,6,2,1
                                  45,18,10,9,5,3          42,21,14,4,2,1
                                  45,18,10,9,6,2          28,21,14,12,6,3
                                  45,18,15,6,5,1          28,21,14,12,7,2
                                  45,18,15,9,2,1          42,21,7,6,4,3,1
                                  30,18,15,10,6,5,3,2,1   42,14,12,7,4,3,2
                                                          42,14,12,7,6,2,1
                                                          28,21,14,12,4,3,2
                                                          28,21,14,12,6,2,1
		

Crossrefs

Note: A-numbers of Heinz-number sequences are in parentheses below.
The non-strict case is A326842 (A326847).
A018818 = partitions using divisors (A326841).
A047993 = balanced partitions (A106529).
A067538 = partitions whose length/maximum divides sum (A316413/A326836).
A072233 = partitions by sum and length, with strict case A008289.
A102627 = strict partitions whose length divides sum.
A326850 = strict partitions whose maximum part divides sum.
A326851 = strict partitions w/ length and max dividing sum.
A340828 = strict partitions w/ length divisible by max.
A340829 = strict partitions w/ Heinz number divisible by sum.
A340830 = strict partitions w/ parts divisible by length.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n,All,Divisors[n]],UnsameQ@@#&&Divisible[n,Length[#]]&]],{n,30}]
  • PARI
    A340827(n, divsleft=List(divisors(n)), rest=n, len=0) = if(rest<=0, !rest && !(n%len), my(s=0, d); forstep(i=#divsleft, 1, -1, d = divsleft[i]; listpop(divsleft,i); if(rest>=d, s += A340827(n, divsleft, rest-d, 1+len))); (s)); \\ Antti Karttunen, Feb 22 2023
    
  • Scheme
    ;; See the Links-section. - Antti Karttunen, Feb 22 2023

Extensions

Data section extended up to a(105) by Antti Karttunen, Feb 22 2023

A359896 Number of odd-length integer partitions of n whose parts do not have the same mean as median.

Original entry on oeis.org

0, 0, 0, 0, 1, 2, 2, 6, 9, 11, 15, 27, 32, 50, 58, 72, 112, 149, 171, 246, 286, 359, 477, 630, 773, 941, 1181, 1418, 1749, 2289, 2668, 3429, 4162, 4878, 6074, 7091, 8590, 10834, 12891, 15180, 18491, 22314, 25845, 31657, 36394, 42269, 52547, 62414, 73576, 85701
Offset: 0

Views

Author

Gus Wiseman, Jan 20 2023

Keywords

Examples

			The a(4) = 1 through a(9) = 11 partitions:
  (211)  (221)  (411)    (322)    (332)      (441)
         (311)  (21111)  (331)    (422)      (522)
                         (421)    (431)      (621)
                         (511)    (521)      (711)
                         (22111)  (611)      (22221)
                         (31111)  (22211)    (32211)
                                  (32111)    (33111)
                                  (41111)    (42111)
                                  (2111111)  (51111)
                                             (2211111)
                                             (3111111)
		

Crossrefs

These partitions are ranked by A359892.
The any-length version is A359894, complement A240219, strict A359898.
The complement is counted by A359895, ranked by A359891.
The strict case is A359900, complement A359899.
A000041 counts partitions, strict A000009.
A008284/A058398/A327482 count partitions by mean, ranked by A326567/A326568.
A027193 counts odd-length partitions, strict A067659, ranked by A026424.
A067538 counts ptns with integer mean, strict A102627, ranked by A316413.
A237984 counts ptns containing their mean, strict A240850, ranked by A327473.
A325347 counts ptns with integer median, strict A359907, ranked by A359908.
A359893 and A359901 count partitions by median, odd-length A359902.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n], OddQ[Length[#]]&&Mean[#]!=Median[#]&]],{n,0,30}]

A359898 Number of strict integer partitions of n whose parts do not have the same mean as median.

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 0, 1, 2, 1, 4, 6, 5, 11, 12, 14, 21, 29, 26, 44, 44, 58, 68, 92, 92, 118, 137, 165, 192, 241, 223, 324, 353, 405, 467, 518, 594, 741, 809, 911, 987, 1239, 1276, 1588, 1741, 1823, 2226, 2566, 2727, 3138, 3413, 3905, 4450, 5093, 5434, 6134
Offset: 0

Views

Author

Gus Wiseman, Jan 20 2023

Keywords

Examples

			The a(7) = 1 through a(13) = 11 partitions:
  (4,2,1)  (4,3,1)  (6,2,1)  (5,3,2)  (5,4,2)    (6,5,1)    (6,4,3)
           (5,2,1)           (5,4,1)  (6,3,2)    (7,3,2)    (6,5,2)
                             (6,3,1)  (6,4,1)    (8,3,1)    (7,4,2)
                             (7,2,1)  (7,3,1)    (9,2,1)    (7,5,1)
                                      (8,2,1)    (6,3,2,1)  (8,3,2)
                                      (5,3,2,1)             (8,4,1)
                                                            (9,3,1)
                                                            (10,2,1)
                                                            (5,4,3,1)
                                                            (6,4,2,1)
                                                            (7,3,2,1)
		

Crossrefs

The non-strict version is ranked by A359890, complement A359889.
The non-strict version is A359894, complement A240219.
The complement is counted by A359897.
The odd-length case is A359900, complement A359899.
A000041 counts partitions, strict A000009.
A008284/A058398/A327482 count partitions by mean, ranked by A326567/A326568.
A008289 counts strict partitions by mean.
A067538 counts ptns with integer mean, strict A102627, ranked by A316413.
A237984 counts ptns containing their mean, strict A240850, ranked by A327473.
A325347 counts ptns with integer median, strict A359907, ranked by A359908.
A359893 and A359901 count partitions by median, odd-length A359902.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n], UnsameQ@@#&&Mean[#]!=Median[#]&]],{n,0,30}]

A360686 Number of integer partitions of n whose distinct parts have integer median.

Original entry on oeis.org

1, 2, 2, 4, 3, 8, 7, 16, 17, 31, 35, 60, 67, 99, 121, 170, 200, 270, 328, 436, 522, 674, 828, 1061, 1292, 1626, 1983, 2507, 3035, 3772, 4582, 5661, 6801, 8358, 10059, 12231, 14627, 17702, 21069, 25423, 30147, 36100, 42725, 50936, 60081, 71388, 84007, 99408
Offset: 1

Views

Author

Gus Wiseman, Feb 20 2023

Keywords

Comments

The median of a multiset is either the middle part (for odd length), or the average of the two middle parts (for even length).

Examples

			The a(1) = 1 through a(8) = 16 partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)        (8)
       (11)  (111)  (22)    (311)    (33)      (331)      (44)
                    (31)    (11111)  (42)      (421)      (53)
                    (1111)           (51)      (511)      (62)
                                     (222)     (3211)     (71)
                                     (321)     (31111)    (422)
                                     (3111)    (1111111)  (431)
                                     (111111)             (521)
                                                          (2222)
                                                          (3221)
                                                          (3311)
                                                          (4211)
                                                          (5111)
                                                          (32111)
                                                          (311111)
                                                          (11111111)
For example, the partition y = (7,4,2,1,1) has distinct parts {1,2,4,7} with median 3, so y is counted under a(15).
		

Crossrefs

For all parts: A325347, strict A359907, ranks A359908, complement A307683.
For mean instead of median: A360241, ranks A326621.
These partitions have ranks A360550, complement A360551.
For multiplicities instead of distinct parts: A360687.
The complement is counted by A360689.
A000041 counts integer partitions, strict A000009.
A000975 counts subsets with integer median.
A027193 counts odd-length partitions, strict A067659, ranks A026424.
A067538 counts partitions with integer mean, strict A102627, ranks A316413.
A116608 counts partitions by number of distinct parts.
A359893 and A359901 count partitions by median, odd-length A359902.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n], IntegerQ[Median[Union[#]]]&]],{n,30}]

A362046 Number of nonempty subsets of {1..n} with mean n/2.

Original entry on oeis.org

0, 0, 1, 1, 3, 3, 9, 8, 25, 23, 75, 68, 235, 213, 759, 695, 2521, 2325, 8555, 7941, 29503, 27561, 103129, 96861, 364547, 344003, 1300819, 1232566, 4679471, 4449849, 16952161, 16171117, 61790441, 59107889, 226451035, 217157068, 833918839, 801467551, 3084255127
Offset: 0

Views

Author

Gus Wiseman, Apr 12 2023

Keywords

Examples

			The a(2) = 1 through a(7) = 8 subsets:
  {1}  {1,2}  {2}      {1,4}      {3}          {1,6}
              {1,3}    {2,3}      {1,5}        {2,5}
              {1,2,3}  {1,2,3,4}  {2,4}        {3,4}
                                  {1,2,6}      {1,2,4,7}
                                  {1,3,5}      {1,2,5,6}
                                  {2,3,4}      {1,3,4,6}
                                  {1,2,3,6}    {2,3,4,5}
                                  {1,2,4,5}    {1,2,3,4,5,6}
                                  {1,2,3,4,5}
		

Crossrefs

Using range 0..n gives A070925.
Including the empty set gives A133406.
Even bisection is A212352.
For median instead of mean we have A361801, the doubling of A079309.
A version for partitions is A361853, for median A361849.
A000980 counts nonempty subsets of {1..2n-1} with mean n.
A007318 counts subsets by length.
A067538 counts partitions with integer mean, strict A102627.
A231147 appears to count subsets by median, full-steps A013580.
A327475 counts subsets with integer mean, A000975 integer median.
A327481 counts subsets by integer mean.

Programs

  • Mathematica
    Table[Length[Select[Subsets[Range[n]],Mean[#]==n/2&]],{n,0,15}]

Formula

a(n) = (A070925(n) - 1)/2.
a(n) = A133406(n) - 1.
a(2n) = A212352(n) = A000980(n)/2 - 1.

A363947 Number of integer partitions of n with mean < 3/2.

Original entry on oeis.org

0, 1, 1, 1, 2, 2, 2, 4, 4, 4, 7, 7, 7, 12, 12, 12, 19, 19, 19, 30, 30, 30, 45, 45, 45, 67, 67, 67, 97, 97, 97, 139, 139, 139, 195, 195, 195, 272, 272, 272, 373, 373, 373, 508, 508, 508, 684, 684, 684, 915, 915, 915, 1212, 1212, 1212, 1597, 1597, 1597, 2087
Offset: 0

Views

Author

Gus Wiseman, Jul 02 2023

Keywords

Examples

			The partition y = (2,2,1) has mean 5/3, which is not less than 3/2, so y is not counted under 5.
The a(1) = 1 through a(8) = 4 partitions:
  (1)  (11)  (111)  (211)   (2111)   (21111)   (22111)    (221111)
                    (1111)  (11111)  (111111)  (31111)    (311111)
                                               (211111)   (2111111)
                                               (1111111)  (11111111)
		

Crossrefs

The high version is A000012 (all ones).
This is A000070 with each term repeated three times (see A025065 for two).
These partitions have ranks A363948.
The complement is counted by A364059.
A008284 counts partitions by length, A058398 by mean.
A051293 counts subsets with integer mean, median A000975.
A067538 counts partitions with integer mean, strict A102627, ranks A316413.
A327482 counts partitions by integer mean.
A349156 counts partitions with non-integer mean, ranks A348551.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n],Round[Mean[#]]==1&]],{n,0,15}]
Previous Showing 41-50 of 81 results. Next