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 81-90 of 132 results. Next

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.
Cf. A008289, A066571, A316313, A327472, A327482, A359890, A359906, A359910.

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.
Cf. A000016, A065795, A066571, A082550, A135342, A240851, A327475, A327482, A328966, A359906.

Programs

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

A360454 Numbers for which the prime multiplicities (or sorted signature) have the same median as the prime indices.

Original entry on oeis.org

1, 2, 9, 54, 100, 120, 125, 135, 168, 180, 189, 240, 252, 264, 280, 297, 300, 312, 336, 351, 396, 408, 440, 450, 456, 459, 468, 480, 513, 520, 528, 540, 552, 560, 588, 612, 616, 621, 624, 672, 680, 684, 696, 728, 744, 756, 760, 783, 816, 828, 837, 880, 882
Offset: 1

Views

Author

Gus Wiseman, Feb 10 2023

Keywords

Comments

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.
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 terms together with their prime indices begin:
    1: {}
    2: {1}
    9: {2,2}
   54: {1,2,2,2}
  100: {1,1,3,3}
  120: {1,1,1,2,3}
  125: {3,3,3}
  135: {2,2,2,3}
  168: {1,1,1,2,4}
  180: {1,1,2,2,3}
  189: {2,2,2,4}
  240: {1,1,1,1,2,3}
For example, the prime indices of 336 are {1,1,1,1,2,4} with median 1 and multiplicities {1,1,4} with median 1, so 336 is in the sequence.

Crossrefs

For mean instead of median we have A359903, counted by A360068.
For distinct indices instead of indices we have A360453, counted by A360455.
For distinct indices instead of multiplicities: A360249, counted by A360245.
These partitions are counted by A360456.
A088529/A088530 gives mean of prime signature A124010.
A112798 lists prime indices, length A001222, sum A056239.
A240219 counts partitions with mean equal to median, ranked by A359889.
A325347 counts partitions w/ integer median, strict A359907, ranks A359908.
A326567/A326568 gives mean of prime indices.
A326619/A326620 gives mean of distinct prime indices.
A359893 and A359901 count partitions by median.
A359894 counts partitions with mean different from median, ranks A359890.
A360005 gives median of prime indices (times two).
Cf. A000975, A109297, A109298, A114638, A316413, A324570, A360244, A360248.

Programs

  • Mathematica
    prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[1000],Median[prix[#]]==Median[Length/@Split[prix[#]]]&]

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.
Cf. A240219, A359906, A360005, A360071, A360244, A360245, A360556, A360688.

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.
Cf. A006134, A024718, A057552, A349156, A359893, A361654, A361864.

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.

A363728 Number of integer partitions of n that are not constant but satisfy (mean) = (median) = (mode), assuming there is a unique mode.

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 4, 0, 3, 3, 7, 0, 12, 0, 18, 12, 9, 0, 50, 12, 14, 33, 54, 0, 115, 0, 92, 75, 31, 99, 323, 0, 45, 162, 443, 0, 507, 0, 467, 732, 88, 0, 1551, 274, 833, 627, 1228, 0, 2035, 1556, 2859, 1152, 221, 0, 9008, 0, 295, 4835, 5358
Offset: 1

Views

Author

Gus Wiseman, Jun 23 2023

Keywords

Comments

A mode in a multiset is an element that appears at least as many times as each of the others. For example, the modes of {a,a,b,b,b,c,d,d,d} are {b,d}.
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(8) = 1 through a(18) = 12 partitions:
  3221  .  32221  .  4332    .  3222221  43332  5443      .  433332
                     5331       3322211  53331  6442         443331
                     322221     4222211  63321  7441         533322
                     422211                     32222221     533331
                                                33222211     543321
                                                42222211     633321
                                                52222111     733311
                                                             322222221
                                                             332222211
                                                             422222211
                                                             432222111
                                                             522222111

Crossrefs

Non-constant partitions are counted by A144300, ranks A024619.
This is the non-constant case of A363719, ranks A363727.
These partitions have ranks A363729.
A000041 counts partitions, strict A000009.
A008284 counts partitions by length (or decreasing mean), strict A008289.
A359893 and A359901 count partitions by median, odd-length A359902.
A362608 counts partitions with a unique mode.
Cf. A237984, A240219, A325347, A326567/A326568, A327472, A359894, A363720, A363721.

Programs

  • Mathematica
    modes[ms_]:=Select[Union[ms],Count[ms,#]>=Max@@Length/@Split[ms]&];
Table[Length[Select[IntegerPartitions[n],!SameQ@@#&&{Mean[#]}=={Median[#]}==modes[#]&]],{n,30}]

A329976 Number of partitions p of n such that (number of numbers in p that have multiplicity 1) > (number of numbers in p having multiplicity > 1).

Original entry on oeis.org

0, 1, 1, 2, 2, 3, 4, 6, 9, 14, 18, 27, 38, 50, 66, 89, 113, 145, 186, 234, 297, 374, 468, 585, 737, 912, 1140, 1407, 1758, 2153, 2668, 3254, 4007, 4855, 5946, 7170, 8705, 10451, 12626, 15068, 18125, 21551, 25766, 30546, 36365, 42958, 50976, 60062, 70987
Offset: 0

Views

Author

Clark Kimberling, Feb 03 2020

Keywords

Comments

For each partition of n, let
d = number of terms that are not repeated;
r = number of terms that are repeated.
a(n) is the number of partitions such that d > r.
Also the number of integer partitions of n with median multiplicity 1. - Gus Wiseman, Mar 20 2023

Examples

			The partitions of 6 are 6, 51, 42, 411, 33, 321, 3111, 222, 2211, 21111, 111111.
These have d > r:  6, 51, 42, 321
These have d = r:  411, 3222, 21111
These have d < r:  33, 222, 2211, 111111
Thus, a(6) = 4.

Crossrefs

For parts instead of multiplicities we have A027336
The complement is counted by A330001.
A000041 counts integer partitions, strict A000009.
A116608 counts partitions by number of distinct parts.
A237363 counts partitions with median difference 0.
Cf. A000975, A027193, A067538, A240219, A241274, A325347, A359893, A360005.

Programs

  • Mathematica
    z = 30; d[p_] := Length[DeleteDuplicates[Select[p, Count[p, #] == 1 &]]];
r[p_] := Length[DeleteDuplicates[Select[p, Count[p, #] > 1 &]]]; Table[Count[IntegerPartitions[n], p_ /; d[p] > r[p]], {n, 0, z}]

Formula

a(n) + A241274(n) + A330001(n) = A000041(n) for n >= 0.

A359891 Members of A026424 (numbers with an odd number of prime factors) whose prime indices have the same mean as median.

Original entry on oeis.org

2, 3, 5, 7, 8, 11, 13, 17, 19, 23, 27, 29, 30, 31, 32, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 101, 103, 105, 107, 109, 110, 113, 125, 127, 128, 131, 137, 139, 149, 151, 157, 163, 167, 173, 179, 181, 191, 193, 197, 199, 211, 223, 227, 229, 233
Offset: 1

Views

Author

Gus Wiseman, Jan 22 2023

Keywords

Comments

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.
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 terms together with their prime indices begin:
   2: {1}
   3: {2}
   5: {3}
   7: {4}
   8: {1,1,1}
  11: {5}
  13: {6}
  17: {7}
  19: {8}
  23: {9}
  27: {2,2,2}
  29: {10}
  30: {1,2,3}
  31: {11}
  32: {1,1,1,1,1}
For example, the prime indices of 180 are {1,1,2,2,3}, with mean 9/5 and median 2, so 180 is not in the sequence.

Crossrefs

A subset of A026424 = numbers with odd bigomega.
The LHS (mean of prime indices) is A326567/A326568.
This is the odd-length case of A359889, complement A359890.
The complement is A359892.
These partitions are counted by A359895, any-length A240219.
The RHS (median of prime indices) is A360005/2.
A058398 counts partitions by mean, see also A008284, A327482.
A112798 lists prime indices, length A001222, sum A056239.
A316413 lists numbers whose prime indices have integer mean.
A359893 and A359901 count partitions by median, odd-length A359902.
A359908 lists numbers whose prime indices have integer median.
Cf. A327473, A359894, A359899, A359910, A360007, A360009.

Programs

  • Mathematica
    prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],OddQ[PrimeOmega[#]]&&Mean[prix[#]]==Median[prix[#]]&]

Formula

Intersection of A026424 and A359889.

A360674 Number of integer partitions of 2n whose left half (exclusive) and right half (inclusive) both sum to n.

Original entry on oeis.org

1, 1, 3, 4, 7, 6, 12, 9, 16, 15, 21, 16, 34, 22, 33, 36, 47, 36, 62, 44, 75, 68, 78, 68, 120, 93, 113, 117, 151, 122, 195, 148, 209, 197, 220, 226, 315, 249, 304, 309, 402, 332, 463, 387, 496, 515, 539, 514, 712, 609, 738, 723, 845, 774, 983, 914, 1111
Offset: 0

Views

Author

Gus Wiseman, Mar 04 2023

Keywords

Comments

Of course, only one of the two conditions is necessary.

Examples

			The a(1) = 1 through a(6) = 12 partitions:
  (11)  (22)    (33)      (44)        (55)          (66)
        (211)   (321)     (422)       (532)         (633)
        (1111)  (21111)   (431)       (541)         (642)
                (111111)  (2222)      (32221)       (651)
                          (22211)     (211111111)   (3333)
                          (2111111)   (1111111111)  (33222)
                          (11111111)                (33321)
                                                    (42222)
                                                    (222222)
                                                    (2222211)
                                                    (21111111111)
                                                    (111111111111)
For example, the partition y = (3,2,2,2,1) has halves (3,2) and (2,2,1), both with sum 5, so y is counted under a(5).

Crossrefs

The even-length case is A000005.
Central diagonal of A360672.
These partitions have ranks A360953.
A008284 counts partitions by length, row sums A000041.
A359893 and A359901 count partitions by median.
First for prime indices, second for partitions, third for prime factors:
- A360676 gives left sum (exclusive), counted by A360672, product A361200.
- A360677 gives right sum (exclusive), counted by A360675, product A361201.
- A360678 gives left sum (inclusive), counted by A360675, product A347043.
- A360679 gives right sum (inclusive), counted by A360672, product A347044.
Cf. A237363, A360254, A360671, A360673, A360682.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[2n], Total[Take[#,Floor[Length[#]/2]]]==n&]],{n,0,15}]
  • Python
    def accel_asc(n):
    a = [0 for i in range(n + 1)]
    k = 1
    y = n - 1
    while k != 0:
        x = a[k - 1] + 1
        k -= 1
        while 2 * x <= y:
            a[k] = x
            y -= x
            k += 1
        l = k + 1
        while x <= y:
            a[k] = x
            a[l] = y
            yield a[:k + 2]
            x += 1
            y -= 1
        a[k] = x + y
        y = x + y - 1
        yield a[:k + 1]
for y in range(1000):
    num = 0
    for x in accel_asc(2*y):
        stop = len(x)//2+1
        if len(x) % 2 == 0:
            stop -= 1
        right = x[0:stop]
        left = x[stop:]
        if sum(right) == sum(left):
            num += 1
    print(y,num)
# David Consiglio, Jr., Mar 09 2023

Formula

a(n) = A360672(2n,n).

Extensions

More terms from David Consiglio, Jr., Mar 09 2023

A361654 Triangle read by rows where T(n,k) is the number of nonempty subsets of {1,...,2n-1} with median n and minimum k.

Original entry on oeis.org

1, 2, 1, 5, 3, 1, 15, 9, 4, 1, 50, 29, 14, 5, 1, 176, 99, 49, 20, 6, 1, 638, 351, 175, 76, 27, 7, 1, 2354, 1275, 637, 286, 111, 35, 8, 1, 8789, 4707, 2353, 1078, 441, 155, 44, 9, 1, 33099, 17577, 8788, 4081, 1728, 650, 209, 54, 10, 1
Offset: 1

Views

Author

Gus Wiseman, Mar 23 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

			Triangle begins:
     1
     2     1
     5     3     1
    15     9     4     1
    50    29    14     5     1
   176    99    49    20     6     1
   638   351   175    76    27     7     1
  2354  1275   637   286   111    35     8     1
  8789  4707  2353  1078   441   155    44     9     1
Row n = 4 counts the following subsets:
  {1,7}            {2,6}        {3,5}    {4}
  {1,4,5}          {2,4,5}      {3,4,5}
  {1,4,6}          {2,4,6}      {3,4,6}
  {1,4,7}          {2,4,7}      {3,4,7}
  {1,2,6,7}        {2,3,5,6}
  {1,3,5,6}        {2,3,5,7}
  {1,3,5,7}        {2,3,4,5,6}
  {1,2,4,5,6}      {2,3,4,5,7}
  {1,2,4,5,7}      {2,3,4,6,7}
  {1,2,4,6,7}
  {1,3,4,5,6}
  {1,3,4,5,7}
  {1,3,4,6,7}
  {1,2,3,5,6,7}
  {1,2,3,4,5,6,7}

Links

Crossrefs

Row sums appear to be A006134.
Column k = 1 appears to be A024718.
Column k = 2 appears to be A006134.
Column k = 3 appears to be A079309.
A000975 counts subsets with integer median, mean A327475.
A007318 counts subsets by length.
A231147 counts subsets by median, full steps A013580, by mean A327481.
A359893 and A359901 count partitions by median.
A360005(n)/2 gives the median statistic.
Cf. A006134, A057552, A067659, A325347, A359907, A361849.

Programs

  • Mathematica
    Table[Length[Select[Subsets[Range[2n-1]],Min@@#==k&&Median[#]==n&]],{n,6},{k,n}]
  • PARI
    T(n,k) = sum(j=0, n-k, binomial(2*j+k-2, j)) \\ Andrew Howroyd, Apr 09 2023

Formula

T(n,k) = 1 + Sum_{j=1..n-k} binomial(2*j+k-2, j). - Andrew Howroyd, Apr 09 2023
Previous Showing 81-90 of 132 results. Next

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

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