A361394 -id:A361394 - cp's OEIS frontend

A111907 Numbers k such that the same number of primes, among primes <= the largest prime dividing k, divide k as do not.

1, 3, 9, 14, 21, 27, 28, 35, 56, 63, 78, 81, 98, 112, 130, 147, 156, 175, 182, 189, 195, 196, 224, 234, 243, 245, 260, 273, 286, 312, 364, 392, 429, 441, 448, 455, 468, 520, 567, 570, 572, 585, 624, 650, 686, 702, 715, 728, 729, 784, 798, 819, 875, 896, 936

Offset: 1

Leroy Quet, Aug 19 2005

nonn

Also numbers whose greatest prime index (A061395) is twice their number of distinct prime factors (A001221). - Gus Wiseman, Mar 19 2023

			28 is included because 7 is the largest prime dividing 28. And of the primes <= 7 (2,3,5,7), 2 and 7 (2 primes) divide 28 and 3 and 5 (also 2 primes) do not divide 28.
From _Gus Wiseman_, Mar 19 2023: (Start)
The terms together with their prime indices begin:
    1: {}
    3: {2}
    9: {2,2}
   14: {1,4}
   21: {2,4}
   27: {2,2,2}
   28: {1,1,4}
   35: {3,4}
   56: {1,1,1,4}
   63: {2,2,4}
   78: {1,2,6}
   81: {2,2,2,2}
   98: {1,4,4}
  112: {1,1,1,1,4}
  130: {1,3,6}
  147: {2,4,4}
  156: {1,1,2,6}
For example, 156 is included because it has prime indices {1,1,2,6}, with distinct parts {1,2,6} and distinct non-parts {3,4,5}, both of length 3. Alternatively, 156 has greatest prime index 6 and omega 3, and 6 = 2*3.
(End)

John Tyler Rascoe, Table of n, a(n) for n = 1..1000

For length instead of maximum we have A067801.
These partitions are counted by A239959.
A001222 (bigomega) counts prime factors, distinct A001221 (omega).
A061395 gives greatest prime index.
A112798 lists prime indices, sum A056239.
Comparing twice the number of distinct parts to greatest part:
              less: A360254, ranks A111906
             equal: A239959, ranks A111907
           greater: A237365, ranks A111905
     less or equal: A237363, ranks A361204
  greater or equal: A361394, ranks A361395
Cf. A046660, A067340, A324517, A324521, A324562, A361205, A361393.

Select[Range[100],2*PrimeNu[#]==PrimePi[FactorInteger[#][[-1,1]]]&] (* Gus Wiseman, Mar 19 2023 *)

{m=950;v=vector(m);for(n=1,m,f=factor(n)[,1]~;c=0;pc=0;forprime(p=2,vecmax(f), j=1;s=length(f);while(j<=s&&p!=f[j],j++);if(j<=s,c++);pc++);v[n]=sign(pc-2*c)); for(n=1,m,if(v[n]==0,print1(n,",")))} \\ Klaus Brockhaus, Aug 21 2005

from itertools import count, islice
from sympy import sieve, factorint
def a_gen():
    yield 1
    for k in count(3):
        f = [sieve.search(i)[0] for i in factorint(k)]
        if 2*len(f) == f[-1]:
            yield k
A111907_list = list(islice(a_gen(), 100)) # John Tyler Rascoe, Jun 20 2024

More terms from Klaus Brockhaus, Aug 21 2005

A237363 Number of partitions of n for which 2*(number of distinct parts) <= (number of parts).

Original entry on oeis.org

1, 0, 1, 1, 2, 2, 6, 6, 10, 13, 20, 26, 39, 50, 71, 87, 121, 156, 208, 265, 348, 440, 566, 712, 906, 1131, 1424, 1766, 2224, 2738, 3390, 4168, 5130, 6266, 7664, 9312, 11332, 13723, 16603, 20004, 24112, 28942, 34708, 41522, 49612, 59031, 70308, 83479, 98992

Offset: 0

Clark Kimberling, Feb 06 2014

nonn

a(n) + A237365(n) = A000041(n).

Also the number of integer partitions of n whose median difference is 0. For example, the partition (2,2,2,1,1) is counted because its multiset of differences {0,0,0,1} has median 0. - Gus Wiseman, Mar 18 2023

			Among the 22 partitions of 8, these qualify:  [5,1,1,1], [4,4], [4,1,1,1,1], [3,3,1,1], [3,1,1,1,1,1], [2,2,2,2], [2,2,2,1,1], [2,2,1,1,1,1], [2,1,1,1,1,1,1], [1,1,1,1,1,1,1,1], and the remaining 12 do not, so that a(8) = 10.

Alois P. Heinz, Table of n, a(n) for n = 0..800

These partitions have ranks A361204.
A000041 counts integer partitions, strict A000009.
A008284 counts partitions by number of parts, reverse A058398.
A116608 counts partitions by number of distinct parts.
A359893 and A359901 count partitions by median, odd-length A359902.
Comparing twice the number of distinct parts to the number of parts:
              less: A360254, ranks A360558
             equal: A239959, ranks A067801
           greater: A237365, ranks A361393
     less or equal: A237363, ranks A361204
  greater or equal: A361394, ranks A361395
Cf. A000975, A027193, A114638, A240219, A325347, A360005, A360244.

z = 50; t = Map[Length[Select[IntegerPartitions[#], 2*Length[DeleteDuplicates[#]] <= Length[#] &]] &, Range[z]] (*A237363*)
Table[PartitionsP[n] - t[[n]], {n, 1, z}] (*A237365*) (* Peter J. C. Moses, Feb 06 2014 *)
Table[Length[Select[IntegerPartitions[n],Median[Differences[#]]==0&]],{n,0,30}] (* Gus Wiseman, Mar 18 2023 *)

A361848 Number of integer partitions of n such that (maximum) <= 2*(median).

Original entry on oeis.org

1, 2, 3, 5, 6, 9, 12, 15, 19, 26, 31, 40, 49, 61, 75, 93, 112, 137, 165, 199, 238, 289, 341, 408, 482, 571, 674, 796, 932, 1096, 1280, 1495, 1738, 2026, 2347, 2724, 3148, 3639, 4191, 4831, 5545, 6372, 7298, 8358, 9552, 10915, 12439, 14176, 16121, 18325

Offset: 0

Gus Wiseman, Mar 28 2023

nonn

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

			The a(1) = 1 through a(7) = 12 partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)
       (11)  (21)   (22)    (32)     (33)      (43)
             (111)  (31)    (41)     (42)      (52)
                    (211)   (221)    (51)      (61)
                    (1111)  (2111)   (222)     (322)
                            (11111)  (321)     (331)
                                     (2211)    (421)
                                     (21111)   (2221)
                                     (111111)  (3211)
                                               (22111)
                                               (211111)
                                               (1111111)
For example, the partition y = (3,2,2) has maximum 3 and median 2, and 3 <= 2*2, so y is counted under a(7).

For length instead of median we have A237755.
For minimum instead of median we have A237824.
The equal case is A361849, ranks A361856.
For mean instead of median we have A361851.
The complement is counted by A361857, ranks A361867.
The unequal case is A361858.
Reversing the inequality gives A361859, ranks A361868.
A000041 counts integer partitions, strict A000009.
A000975 counts subsets with integer median.
A325347 counts partitions with integer median, complement A307683.
A359893 and A359901 count partitions by median.
A360005 gives twice median of prime indices, distinct A360457.
Cf. A008284, A013580, A027193, A061395, A067538, A111907, A240219, A324562, A359907, A361394, A361860.

Table[Length[Select[IntegerPartitions[n],Max@@#<=2*Median[#]&]],{n,30}]

a(n) = A361849(n) + A361858(n).

a(n) = A000041(n) - A361857(n).

A361851 Number of integer partitions of n such that (length) * (maximum) <= 2*n.

Original entry on oeis.org

1, 2, 3, 5, 7, 11, 12, 18, 23, 31, 37, 51, 58, 75, 96, 116, 126, 184, 193, 253, 307, 346, 402, 511, 615, 678, 792, 1045, 1088, 1386, 1419, 1826, 2181, 2293, 2779, 3568, 3659, 3984, 4867, 5885, 6407, 7732, 8124, 9400, 11683, 13025, 13269, 16216, 17774, 22016

Offset: 1

Gus Wiseman, Mar 28 2023

nonn

Also partitions such that (maximum) <= 2*(mean).

These are partitions whose complement (see example) has size <= n.

			The a(1) = 1 through a(7) = 12 partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)
       (11)  (21)   (22)    (32)     (33)      (43)
             (111)  (31)    (41)     (42)      (52)
                    (211)   (221)    (51)      (61)
                    (1111)  (311)    (222)     (322)
                            (2111)   (321)     (331)
                            (11111)  (411)     (421)
                                     (2211)    (2221)
                                     (3111)    (3211)
                                     (21111)   (22111)
                                     (111111)  (211111)
                                               (1111111)
The partition y = (3,2,1,1) has length 4 and maximum 3, and 4*3 <= 2*7, so y is counted under a(7).
The partition y = (5,2,1,1) has length 4 and maximum 5, and 4*5 is not <= 2*9, so y is not counted under a(9).
The partition y = (3,2,1,1) has diagram:
  o o o
  o o .
  o . .
  o . .
with complement of size 5, and 5 <= 7, so y is counted under a(7).

For length instead of mean we have A237755.
For minimum instead of mean we have A237824.
For median instead of mean we have A361848.
The equal case for median is A361849, ranks A361856.
The unequal case is A361852, median A361858.
The equal case is A361853, ranks A361855.
Reversing the inequality gives A361906, unequal case A361907.
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.
Cf. A111907, A237984, A240219, A324521, A324562, A327482, A349156, A360068, A360071, A360241, A361394, A361859.

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

A361858 Number of integer partitions of n such that the maximum is less than twice the median.

Original entry on oeis.org

1, 2, 3, 4, 5, 8, 8, 12, 15, 19, 22, 31, 34, 45, 55, 67, 78, 100, 115, 144, 170, 203, 238, 291, 337, 403, 473, 560, 650, 772, 889, 1046, 1213, 1414, 1635, 1906, 2186, 2533, 2913, 3361, 3847, 4433, 5060, 5808, 6628, 7572, 8615, 9835, 11158, 12698, 14394

Offset: 1

Gus Wiseman, Apr 02 2023

nonn

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

			The a(1) = 1 through a(8) = 12 partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)        (8)
       (11)  (21)   (22)    (32)     (33)      (43)       (44)
             (111)  (31)    (41)     (42)      (52)       (53)
                    (1111)  (221)    (51)      (61)       (62)
                            (11111)  (222)     (322)      (71)
                                     (321)     (331)      (332)
                                     (2211)    (2221)     (431)
                                     (111111)  (1111111)  (2222)
                                                          (3221)
                                                          (3311)
                                                          (22211)
                                                          (11111111)
The partition y = (3,2,2,1) has maximum 3 and median 2, and 3 < 2*2, so y is counted under a(8).

For minimum instead of median we have A053263.
For length instead of median we have A237754.
Allowing equality gives A361848, strict A361850.
The equal version is A361849, ranks A361856.
For mean instead of median we have A361852.
Reversing the inequality gives A361857, ranks A361867.
The complement is counted by A361859, ranks A361868.
A000041 counts integer partitions, strict A000009.
A000975 counts subsets with integer median.
A325347 counts partitions with integer median, complement A307683.
A359893 and A359901 count partitions by median.
A360005 gives twice median of prime indices, distinct A360457.
Cf. A008284, A027193, A237751, A237755, A237820, A237824, A240219, A361394, A361851, A361860, A361907.

Table[Length[Select[IntegerPartitions[n],Max@@#<2*Median[#]&]],{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

Gus Wiseman, Mar 29 2023

nonn

Also partitions such that (maximum) > 2*(mean).

These are partitions whose complement (see example) has size > n.

			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).

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.
Cf. A027193, A111907, A237752, A237755, A237821, A237824, A237984, A324562, A326622, A327482, A349156, A360071, A361394.

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

A361205 a(n) = 2*omega(n) - bigomega(n).

Original entry on oeis.org

0, 1, 1, 0, 1, 2, 1, -1, 0, 2, 1, 1, 1, 2, 2, -2, 1, 1, 1, 1, 2, 2, 1, 0, 0, 2, -1, 1, 1, 3, 1, -3, 2, 2, 2, 0, 1, 2, 2, 0, 1, 3, 1, 1, 1, 2, 1, -1, 0, 1, 2, 1, 1, 0, 2, 0, 2, 2, 1, 2, 1, 2, 1, -4, 2, 3, 1, 1, 2, 3, 1, -1, 1, 2, 1, 1, 2, 3, 1, -1, -2, 2, 1, 2

Offset: 1

Gus Wiseman, Mar 16 2023

Amiram Eldar, Table of n, a(n) for n = 1..10000

Without doubling omega we have -A046660.
Positions of 0's are A067801, counted by A239959.
Positions of negative terms are A360558, counted by A360254.
Positions of nonpositive terms are A361204, counted by A237363.
Positions of positive terms are A361393, counted by A237365.
Positions of nonnegative terms are A361395, counted by A361394.
A001221 (omega) counts distinct prime factors.
A001222 (bigomega) counts prime factors.
A112798 lists prime indices, sum A056239.
Cf. A061395, A067340, A111907, A324517, A324522, A326567/A326568.
Cf. A077761, A083342, A136141.

Table[2*PrimeNu[n]-PrimeOmega[n],{n,100}]

Additive with a(p^e) = 2 - e. - Amiram Eldar, Mar 26 2023

Sum_{k=1..n} a(k) = n * log(log(n)) + c * n + O(n/log(n)), where c = 2*A077761 - A083342 = A077761 - A136141 = -0.511659... . - Amiram Eldar, Oct 01 2023

A361852 Number of integer partitions of n such that (length) * (maximum) < 2n.

Original entry on oeis.org

1, 2, 3, 5, 7, 9, 12, 17, 21, 27, 37, 41, 58, 67, 80, 106, 126, 153, 193, 209, 263, 326, 402, 419, 565, 650, 694, 891, 1088, 1120, 1419, 1672, 1987, 2245, 2345, 2856, 3659, 3924, 4519, 4975, 6407, 6534, 8124, 8280, 9545, 12937, 13269, 13788, 16474, 20336

Offset: 1

Gus Wiseman, Mar 29 2023

nonn

Also partitions such that (maximum) < 2*(mean).

			The a(1) = 1 through a(7) = 12 partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)
       (11)  (21)   (22)    (32)     (33)      (43)
             (111)  (31)    (41)     (42)      (52)
                    (211)   (221)    (51)      (61)
                    (1111)  (311)    (222)     (322)
                            (2111)   (321)     (331)
                            (11111)  (2211)    (421)
                                     (21111)   (2221)
                                     (111111)  (3211)
                                               (22111)
                                               (211111)
                                               (1111111)
For example, the partition y = (3,2,1,1) has length 4 and maximum 3, and 4*3 < 2*7, so y is counted under a(7).

For length instead of mean we have A237754.
Allowing equality gives A237755, for median A361848.
For equal median we have A361849, ranks A361856.
The equal version is A361853, ranks A361855.
For median instead of mean we have A361858.
The complement is counted by A361906.
Reversing the inequality gives A361907.
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.
Cf. A027193, A111907, A116608, A237824, A237984, A324517, A327482, A349156, A360068, A360071, A361394.

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

A361857 Number of integer partitions of n such that the maximum is greater than twice the median.

Original entry on oeis.org

0, 0, 0, 0, 1, 2, 3, 7, 11, 16, 25, 37, 52, 74, 101, 138, 185, 248, 325, 428, 554, 713, 914, 1167, 1476, 1865, 2336, 2922, 3633, 4508, 5562, 6854, 8405, 10284, 12536, 15253, 18489, 22376, 26994, 32507, 39038, 46802, 55963, 66817, 79582, 94643, 112315

Offset: 1

Gus Wiseman, Apr 02 2023

nonn

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

			The a(5) = 1 through a(10) = 16 partitions:
  (311)  (411)   (511)    (521)     (522)      (622)
         (3111)  (4111)   (611)     (621)      (721)
                 (31111)  (4211)    (711)      (811)
                          (5111)    (5211)     (5221)
                          (32111)   (6111)     (5311)
                          (41111)   (33111)    (6211)
                          (311111)  (42111)    (7111)
                                    (51111)    (43111)
                                    (321111)   (52111)
                                    (411111)   (61111)
                                    (3111111)  (331111)
                                               (421111)
                                               (511111)
                                               (3211111)
                                               (4111111)
                                               (31111111)
The partition y = (5,2,2,1) has maximum 5 and median 2, and 5 > 2*2, so y is counted under a(10).

For length instead of median we have A237751.
For minimum instead of median we have A237820.
The complement is counted by A361848.
The equal version is A361849, ranks A361856.
Reversing the inequality gives A361858.
Allowing equality gives A361859, ranks A361868.
These partitions have ranks A361867.
For mean instead of median we have A361907.
A000041 counts integer partitions, strict A000009.
A000975 counts subsets with integer median.
A325347 counts partitions with integer median, complement A307683.
A359893 and A359901 count partitions by median.
A360005 gives twice median of prime indices, distinct A360457.
Cf. A008284, A013580, A027193, A061395, A237755, A237824, A240219, A361394, A361851, A361860.

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

A361204 Positive integers k such that 2*omega(k) <= bigomega(k).

Original entry on oeis.org

1, 4, 8, 9, 16, 24, 25, 27, 32, 36, 40, 48, 49, 54, 56, 64, 72, 80, 81, 88, 96, 100, 104, 108, 112, 121, 125, 128, 135, 136, 144, 152, 160, 162, 169, 176, 184, 189, 192, 196, 200, 208, 216, 224, 225, 232, 240, 243, 248, 250, 256, 272, 288, 289, 296, 297, 304

Offset: 1

Gus Wiseman, Mar 14 2023

nonn

			The terms together with their prime indices begin:
     1: {}
     4: {1,1}
     8: {1,1,1}
     9: {2,2}
    16: {1,1,1,1}
    24: {1,1,1,2}
    25: {3,3}
    27: {2,2,2}
    32: {1,1,1,1,1}
    36: {1,1,2,2}
    40: {1,1,1,3}
    48: {1,1,1,1,2}
    49: {4,4}
    54: {1,2,2,2}
    56: {1,1,1,4}
    64: {1,1,1,1,1,1}

Robert Israel, Table of n, a(n) for n = 1..10000

These partitions are counted by A237363.
The complement is A361393.
A001221 (omega) counts distinct prime factors.
A001222 (bigomega) counts prime factors.
A112798 lists prime indices, sum A056239.
A360005 gives median of prime indices (times 2), distinct A360457.
Comparing twice the number of distinct parts to the number of parts:
              less: A360254, ranks A360558
             equal: A239959, ranks A067801
           greater: A237365, ranks A361393
     less or equal: A237363, ranks A361204
  greater or equal: A361394, ranks A361395
Cf. A046660, A061395, A067340, A111907.
Cf. A324517, A324521, A324522, A324560, A324562.

filter:= proc(n) local F,t;
  F:= ifactors(n)[2];
  add(t[2],t=F) >= 2*nops(F)
end proc:
select(filter, [$1..1000]); # Robert Israel, Mar 22 2023

Select[Range[100],2*PrimeNu[#]<=PrimeOmega[#]&]

A001222(a(n)) >= 2*A001221(a(n)).

cp's OEIS Frontend

A111907 Numbers k such that the same number of primes, among primes <= the largest prime dividing k, divide k as do not.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Python

Extensions

A237363 Number of partitions of n for which 2*(number of distinct parts) <= (number of parts).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A361848 Number of integer partitions of n such that (maximum) <= 2*(median).

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A361851 Number of integer partitions of n such that (length) * (maximum) <= 2*n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A361858 Number of integer partitions of n such that the maximum is less than twice the median.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

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

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A361205 a(n) = 2*omega(n) - bigomega(n).

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Formula

A361852 Number of integer partitions of n such that (length) * (maximum) < 2n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A361857 Number of integer partitions of n such that the maximum is greater than twice the median.