A360005 -id:A360005 - cp's OEIS frontend

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

12, 18, 20, 28, 42, 44, 45, 48, 50, 52, 63, 66, 68, 70, 72, 75, 76, 78, 80, 92, 98, 99, 102, 108, 112, 114, 116, 117, 120, 124, 130, 138, 147, 148, 153, 154, 162, 164, 165, 168, 170, 171, 172, 174, 175, 176, 180, 182, 186, 188, 190, 192, 195, 200, 207, 208

Offset: 1

Gus Wiseman, Jan 22 2023

nonn

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

			The terms together with their prime indices begin:
   12: {1,1,2}
   18: {1,2,2}
   20: {1,1,3}
   28: {1,1,4}
   42: {1,2,4}
   44: {1,1,5}
   45: {2,2,3}
   48: {1,1,1,1,2}
   50: {1,3,3}
   52: {1,1,6}
   63: {2,2,4}
   66: {1,2,5}
   68: {1,1,7}
   70: {1,3,4}
   72: {1,1,1,2,2}
For example, the prime indices of 180 are {1,1,2,2,3}, with mean 9/5 and median 2, so 180 is in the sequence.

A subset of A026424 = numbers with odd bigomega.
The LHS (mean of prime indices) is A326567/A326568.
This is the odd-length case of A359890, complement A359889.
The complement is A359891.
These partitions are counted by A359896, complement A359895.
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.
A359902 counts odd-length partitions by median.
Cf. A240219, A327473, A327476, A348551, A359894, A359898, A359899, A359900, A359911, A359912, A360006-A360009.

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

Intersection of A026424 and A359890.

A359904 Numbers whose prime factors and prime signature have the same mean.

Original entry on oeis.org

1, 4, 27, 400, 3125, 9072, 10800, 14580, 24057, 35721, 50625, 73984, 117760, 134400, 158976, 181440, 191488, 389376, 452709, 544000, 583680, 664848, 731136, 774400, 823543, 878592, 965888

Offset: 1

Gus Wiseman, Jan 25 2023

nonn

The multiset of prime factors of n is row n of A027746.

A number's prime signature (row n of A124010) is the sequence of positive exponents in its prime factorization.

			The terms together with their prime factors begin:
      1: {}
      4: {2,2}
     27: {3,3,3}
    400: {2,2,2,2,5,5}
   3125: {5,5,5,5,5}
   9072: {2,2,2,2,3,3,3,3,7}
  10800: {2,2,2,2,3,3,3,5,5}
  14580: {2,2,3,3,3,3,3,3,5}
  24057: {3,3,3,3,3,3,3,11}
  35721: {3,3,3,3,3,3,7,7}
  50625: {3,3,3,3,5,5,5,5}
  73984: {2,2,2,2,2,2,2,2,17,17}

The prime factors are A027746, mean A123528/A123529.
The prime signature is A124010, mean A088529/A088530.
For prime indices instead of factors we have A359903.
A058398 counts partitions by mean, see also A008284, A327482.
A067340 lists numbers whose prime signature has integer mean.
A078175 = numbers whose prime factors have integer mean, indices A316413.
A112798 = prime indices, length A001222, sum A056239, mean A326567/A326568.
A360005 gives median of prime indices (times two).
Cf. A240219, A326622, A327473, A359905, A359908, A359913, A360008, A360068.

prifac[n_]:=If[n==1,{},Flatten[ConstantArray@@@FactorInteger[n]]];
prisig[n_]:=If[n==1,{},Last/@FactorInteger[n]];
Select[Range[1000],Mean[prifac[#]]==Mean[prisig[#]]&]

A359911 Number of integer factorizations of n into factors > 1 without the same mean as median.

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0, 2, 0, 0, 0, 1, 0, 1, 0, 3, 0, 0, 0, 3, 0, 0, 0, 3, 0, 1, 0, 1, 1, 0, 0, 6, 0, 1, 0, 1, 0, 3, 0, 3, 0, 0, 0, 4, 0, 0, 1, 4, 0, 1, 0, 1, 0, 1, 0, 9, 0, 0, 1, 1, 0, 1, 0, 6, 1, 0, 0, 5, 0, 0, 0, 3, 0, 5, 0, 1, 0, 0, 0, 13, 0, 1, 1, 3, 0, 1, 0, 3, 0, 0, 0, 10

Offset: 1

Gus Wiseman, Jan 24 2023

nonn

			The a(72) = 9 factorizations: (2*2*2*3*3), (2*2*2*9), (2*2*3*6), (2*2*18), (2*3*12), (2*4*9), (2*6*6), (3*3*8), (3*4*6).

Antti Karttunen, Table of n, a(n) for n = 1..65537

The version for partitions is A359894, complement A240219.
The complement is counted by A359909, odd-length A359910.
A001055 counts factorizations.
A326622 counts factorizations with integer mean, strict A328966.
Cf. A316313, A326567/A326568, A359897, A359889, A359906, A360005.

facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
Table[Length[Select[facs[n],Mean[#]!=Median[#]&]],{n,100}]

median(lista) = if((#lista)%2, lista[(1+#lista)/2], (lista[#lista/2]+lista[1+(#lista/2)])/2);
A359911(n, m=n, facs=List([])) = if(1==n, (#facs>0 && (median(facs)!=(vecsum(Vec(facs))/#facs))), my(s=0, newfacs); fordiv(n, d, if((d>1)&&(d<=m), newfacs = List(facs); listput(newfacs,d); s += A359911(n/d, d, newfacs))); (s)); \\ Antti Karttunen, Jan 20 2025

For n > 1, a(n) = A001055(n) - A359909(n). - Antti Karttunen, Jan 20 2025

Data section extended to a(108) by Antti Karttunen, Jan 20 2025

A360952 Number of strict integer partitions of n with non-integer median; a(0) = 1.

Original entry on oeis.org

1, 0, 0, 1, 0, 2, 0, 3, 0, 4, 1, 6, 1, 8, 4, 11, 5, 15, 10, 20, 13, 27, 22, 36, 28, 47, 43, 63, 56, 82, 79, 107, 103, 140, 141, 180, 181, 232, 242, 299, 308, 380, 402, 483, 511, 613, 656, 772, 824, 969, 1047, 1215, 1309, 1514, 1642, 1882, 2039, 2334, 2539, 2882

Offset: 0

Gus Wiseman, Mar 10 2023

nonn

All of these partitions have even length.

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(0) = 1 through a(15) = 11 partitions (0 = {}, A..E = 10..14):
  0  .  .  21  .  32  .  43  .  54  4321  65    6321  76    5432  87
                  41     52     63        74          85    6431  96
                         61     72        83          94    6521  A5
                                81        92          A3    8321  B4
                                          A1          B2          C3
                                          5321        C1          D2
                                                      5431        E1
                                                      7321        6432
                                                                  7431
                                                                  7521
                                                                  9321

The non-strict version is A307683, ranks A359912.
The non-strict complement is A325347, ranks A359908.
The strict complement is counted by A359907.
For mean instead of median we have A361391, non-strict A349156.
A000041 counts partitions, strict A000009.
A008284/A058398/A327482 count partitions by mean.
A067538 = partitions with integer mean, complement A102627, ranks A316413.
A359893/A359901/A359902 count partitions by median.
A360005(n)/2 ranks the median statistic.
Cf. A000975, A051293, A082550, A240219, A240850, A327475, A359897.

Table[Length[Select[IntegerPartitions[n], UnsameQ@@#&&!IntegerQ[Median[#]]&]],{n,0,30}]

a(n) = A000009(n) - A359907(n).

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

A361395 Positive integers k such that 2*omega(k) >= bigomega(k).

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, Mar 16 2023

nonn

Differs from A068938 in having 1 and 4 and lacking 80.

Includes all squarefree numbers.

			The prime indices of 80 are {1,1,1,1,3}, with 5 parts and 2 distinct parts, and 2*2 < 5, so 80 is not in the sequence.

Complement of A360558.
Positions of nonnegative terms in A361205.
These partitions are counted by A361394.
A001222 (bigomega) counts prime factors, distinct A001221 (omega).
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. A324515, A324517, A324521, A324560, A324562.
Cf. A360248, A360249, A360454.

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

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

A361867 Positive integers > 1 whose prime indices satisfy (maximum) > 2*(median).

Original entry on oeis.org

20, 28, 40, 44, 52, 56, 66, 68, 76, 78, 80, 84, 88, 92, 99, 102, 104, 112, 114, 116, 117, 120, 124, 132, 136, 138, 148, 152, 153, 156, 160, 164, 168, 170, 171, 172, 174, 176, 184, 186, 188, 190, 198, 200, 204, 207, 208, 212, 220, 222, 224, 228, 230, 232, 234

Offset: 1

Gus Wiseman, Apr 05 2023

nonn

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

			The prime indices of 84 are {1,1,2,4}, with maximum 4 and median 3/2, and 4 > 2*(3/2), so 84 is in the sequence.
The terms together with their prime indices begin:
   20: {1,1,3}
   28: {1,1,4}
   40: {1,1,1,3}
   44: {1,1,5}
   52: {1,1,6}
   56: {1,1,1,4}
   66: {1,2,5}
   68: {1,1,7}
   76: {1,1,8}
   78: {1,2,6}
   80: {1,1,1,1,3}
   84: {1,1,2,4}
   88: {1,1,1,5}
   92: {1,1,9}
   99: {2,2,5}

The LHS is A061395 (greatest prime index).
The RHS is A360005 (twice median), distinct A360457.
The equal version is A361856, counted by A361849.
These partitions are counted by A361857, reverse A361858.
Including the equal case gives A361868, counted by A361859.
For mean instead of median we have A361907.
A000975 counts subsets with integer median.
A001222 counts prime factors, distinct A001221.
A112798 lists prime indices, sum A056239.
Cf. A053263, A067801, A111907, A237751, A237820, A359893, A361848, A361855, A361908, A361909.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n], {p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100], Max@@prix[#]>2*Median[prix[#]]&]

A361868 Positive integers > 1 whose prime indices satisfy (maximum) >= 2*(median).

Original entry on oeis.org

12, 20, 24, 28, 40, 42, 44, 48, 52, 56, 60, 63, 66, 68, 72, 76, 78, 80, 84, 88, 92, 96, 99, 102, 104, 112, 114, 116, 117, 120, 124, 126, 130, 132, 136, 138, 140, 144, 148, 152, 153, 156, 160, 164, 168, 170, 171, 172, 174, 176, 184, 186, 188, 189, 190, 192, 195

Offset: 1

Gus Wiseman, Apr 05 2023

nonn

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

			The prime indices of 84 are {1,1,2,4}, with maximum 4 and median 3/2, and 4 >= 2*(3/2), so 84 is in the sequence.
The terms together with their prime indices begin:
   12: {1,1,2}
   20: {1,1,3}
   24: {1,1,1,2}
   28: {1,1,4}
   40: {1,1,1,3}
   42: {1,2,4}
   44: {1,1,5}
   48: {1,1,1,1,2}
   52: {1,1,6}
   56: {1,1,1,4}
   60: {1,1,2,3}
   63: {2,2,4}
   66: {1,2,5}
   68: {1,1,7}
   72: {1,1,1,2,2}

The LHS is A061395 (greatest prime index).
The RHS is A360005 (twice median), distinct A360457.
The equal case is A361856, counted by A361849.
These partitions are counted by A361859.
The unequal case is A361867, counted by A361857.
The complement is counted by A361858.
A000975 counts subsets with integer median.
A001222 (bigomega) counts prime factors, distinct A001221 (omega).
A112798 lists prime indices, sum A056239.
A325347 counts partitions with integer median, complement A307683.
A359893 and A359901 count partitions by median.
Cf. A027193, A053263, A111907, A118096, A237753, A237821, A361848, A361855, A361906, A361908.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],Max@@prix[#]>=2*Median[prix[#]]&]

A364158 Numbers whose multiset of prime factors has low (i.e. least) co-mode 2.

Original entry on oeis.org

1, 2, 4, 6, 8, 10, 14, 16, 18, 22, 26, 30, 32, 34, 36, 38, 42, 46, 50, 54, 58, 62, 64, 66, 70, 74, 78, 82, 86, 90, 94, 98, 100, 102, 106, 108, 110, 114, 118, 122, 126, 128, 130, 134, 138, 142, 146, 150, 154, 158, 162, 166, 170, 174, 178, 182, 186, 190, 194

Offset: 1

Gus Wiseman, Jul 14 2023

nonn

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.
We define a co-mode in a multiset to be an element that appears at most as many times as each of the others. For example, the co-modes in {a,a,b,b,b,c,c} are {a,c}.
Except for 1, this is the lists of all even numbers whose prime factorization contains at most as many 2's as non-2 parts.
Extending the terminology of A124943, the "low co-mode" of a multiset is the least co-mode.

			The terms together with their prime factorizations begin:
   1 =
   2 = 2
   4 = 2*2
   6 = 2*3
   8 = 2*2*2
  10 = 2*5
  14 = 2*7
  16 = 2*2*2*2
  18 = 2*3*3
  22 = 2*11
  26 = 2*13
  30 = 2*3*5
  32 = 2*2*2*2*2
  34 = 2*17
  36 = 2*2*3*3

Partitions of this type are counted by A364159.
Positions of 1's in A364191, high A364192, modes A363486, high A363487.
For median we have A363488, positions of 1 in A363941, triangle A124943.
For mode instead of co-mode we have A360015, counted by A241131.
A027746 lists prime factors (with multiplicity), length A001222.
A362611 counts modes in prime factorization, triangle A362614
A362613 counts co-modes in prime factorization, triangle A362615
Ranking partitions:
- A356862: unique mode, counted by A362608
- A359178: unique co-mode, counted by A362610
- A362605: multiple modes, counted by A362607
- A362606: multiple co-modes, counted by A362609
Cf. A215366, A327473, A327476, A360005.

prifacs[n_]:=If[n==1,{},Flatten[ConstantArray@@@FactorInteger[n]]];
comodes[ms_]:=Select[Union[ms],Count[ms,#]<=Min@@Length/@Split[ms]&];
Select[Range[100],#==1||Min[comodes[prifacs[#]]]==2&]

A361393 Positive integers k such that 2*omega(k) > bigomega(k).

Original entry on oeis.org

2, 3, 5, 6, 7, 10, 11, 12, 13, 14, 15, 17, 18, 19, 20, 21, 22, 23, 26, 28, 29, 30, 31, 33, 34, 35, 37, 38, 39, 41, 42, 43, 44, 45, 46, 47, 50, 51, 52, 53, 55, 57, 58, 59, 60, 61, 62, 63, 65, 66, 67, 68, 69, 70, 71, 73, 74, 75, 76, 77, 78, 79, 82, 83, 84, 85

Offset: 1

Gus Wiseman, Mar 16 2023

nonn

First differs from A317090 in having 120 and lacking 360.

There are numbers like 1, 120, 168, 180, 252,... which are not in A179983 but in here, and others like 360, 504, 540, 600,... which are in A179983 but not in here. - R. J. Mathar, Mar 21 2023

			The terms together with their prime indices begin:
    2: {1}
    3: {2}
    5: {3}
    6: {1,2}
    7: {4}
   10: {1,3}
   11: {5}
   12: {1,1,2}
   13: {6}
   14: {1,4}
   15: {2,3}
   17: {7}
   18: {1,2,2}
   19: {8}
   20: {1,1,3}
The prime indices of 120 are {1,1,1,2,3}, with 3 distinct parts and 5 parts, and 2*3 > 5, so 120 is in the sequence.
The prime indices of 360 are {1,1,1,2,2,3}, with 3 distinct parts and 6 parts, and 2*3 is not greater than 6, so 360 is not in the sequence.

These partitions are counted by A237365.
The complement is A361204.
A001221 (omega) counts distinct prime factors.
A001222 (bigomega) counts prime factors.
A112798 lists prime indices, sum A056239.
A326567/A326568 gives mean of prime indices.
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. A324515, A324517, A324519, A324521, A324522, A324560, A324562.

isA361393 := proc(n)
    if 2*A001221(n) > numtheory[bigomega](n) then
        true;
    else
        false ;
    end if:
end proc:
for n from 1 to 100 do
    if isA361393(n) then
        printf("%d,",n) ;
    end if;
end do: # R. J. Mathar, Mar 21 2023

Select[Range[1000],2*PrimeNu[#]>PrimeOmega[#]&]

{k: 2*A001221(k) > A001222(k)}. - R. J. Mathar, Mar 21 2023

cp's OEIS Frontend

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

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A359904 Numbers whose prime factors and prime signature have the same mean.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A359911 Number of integer factorizations of n into factors > 1 without the same mean as median.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A360952 Number of strict integer partitions of n with non-integer median; a(0) = 1.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

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

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

A361395 Positive integers k such that 2*omega(k) >= bigomega(k).

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A361867 Positive integers > 1 whose prime indices satisfy (maximum) > 2*(median).

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A361868 Positive integers > 1 whose prime indices satisfy (maximum) >= 2*(median).

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs