A327473 -id:A327473 - cp's OEIS frontend

A362619 One and all numbers whose greatest prime factor is a mode, meaning it appears at least as many times as each of the others.

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 13, 14, 15, 16, 17, 18, 19, 21, 22, 23, 25, 26, 27, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 41, 42, 43, 46, 47, 49, 50, 51, 53, 54, 55, 57, 58, 59, 61, 62, 64, 65, 66, 67, 69, 70, 71, 73, 74, 75, 77, 78, 79, 81, 82, 83

Offset: 1

Gus Wiseman, May 09 2023

nonn

First differs from A304678 in having 300.

			The prime factorization of 300 is 2*2*3*5*5, with modes {2,5} and maximum 5, so 300 is in the sequence.

Wikipedia, Mode (statistics).

Partitions of this type are counted by A171979.
The case of a unique mode is A362616, counted by A362612.
The complement is A362620, counted by A240302.
A027746 lists prime factors, A112798 indices, length A001222, sum A056239.
A356862 ranks partitions with a unique mode, counted by A362608.
A359178 ranks partitions with a unique co-mode, counted by A362610.
A362605 ranks partitions with a more than one mode, counted by A362607.
A362606 ranks partitions with a more than one co-mode, counted by A362609.
A362611 counts modes in prime factorization, triangle version A362614.
A362613 counts co-modes in prime factorization, triangle version A362615.
A362621 ranks partitions with median equal to maximum, counted by A053263.
Cf. A000040, A002865, A237824, A237984, A327473, A327476, A359908.

prifacs[n_]:=If[n==1,{},Flatten[ConstantArray@@@FactorInteger[n]]];
Select[Range[100],MemberQ[Commonest[prifacs[#]],Max[prifacs[#]]]&]

A363729 Numbers that are not a power of a prime but whose prime indices satisfy (mean) = (median) = (mode), assuming there is a unique mode.

Original entry on oeis.org

90, 270, 525, 550, 756, 810, 1666, 1911, 1950, 2268, 2430, 2625, 2695, 2700, 2750, 5566, 6762, 6804, 6897, 7128, 7290, 8100, 8500, 9310, 9750, 10285, 10478, 11011, 11550, 11662, 12250, 12375, 12495, 13125, 13377, 13750, 14014, 14703, 18865, 19435, 20412, 21384

Offset: 1

Gus Wiseman, Jun 24 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.
A mode in a multiset is an element that appears at least as many times as each of the others. For example, the modes in {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).

			The prime indices of 6897 are {2,5,5,8}, with mean 5, median 5, and modes {5}, so 6897 is in the sequence.
The terms together with their prime indices begin:
     90: {1,2,2,3}
    270: {1,2,2,2,3}
    525: {2,3,3,4}
    550: {1,3,3,5}
    756: {1,1,2,2,2,4}
    810: {1,2,2,2,2,3}
   1666: {1,4,4,7}
   1911: {2,4,4,6}
   1950: {1,2,3,3,6}
   2268: {1,1,2,2,2,2,4}
   2430: {1,2,2,2,2,2,3}

For just primes instead of prime powers we have A363722.
Including prime-powers gives A363727, counted by A363719.
These partitions are counted by A363728.
For unequal instead of equal we have A363730, counted by A363720.
A000961 lists the prime powers, complement A024619.
A112798 lists prime indices, length A001222, sum A056239.
A326567/A326568 gives mean of prime indices.
A356862 ranks partitions with a unique mode, counted by A362608.
A359178 ranks partitions with multiple modes, counted by A362610.
A360005 gives twice the median of prime indices.
A362611 counts modes in prime indices, triangle A362614.
A362613 counts co-modes in prime indices, triangle A362615.
A363486 gives least mode in prime indices, A363487 greatest.
Just two statistics:
- (mean) = (median): A359889, counted by A240219.
- (mean) != (median): A359890, counted by A359894.
- (mean) = (mode): counted by A363723, see A363724, A363731.
- (median) = (mode): counted by A363740.
Cf. A215366, A327473, A327476, A359893, A359908, A360009, A360248, A360550, A363721, A363725, A363741.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
modes[ms_]:=Select[Union[ms],Count[ms,#]>=Max@@Length/@Split[ms]&];
Select[Range[1000],!PrimePowerQ[#]&&{Mean[prix[#]]}=={Median[prix[#]]}==modes[prix[#]]&]

A363951 Numbers whose prime indices satisfy (length) = (mean), or (sum) = (length)^2.

Original entry on oeis.org

2, 9, 10, 68, 78, 98, 99, 105, 110, 125, 328, 444, 558, 620, 783, 812, 870, 966, 988, 1012, 1035, 1150, 1156, 1168, 1197, 1254, 1326, 1330, 1425, 1521, 1666, 1683, 1690, 1704, 1785, 1870, 1911, 2002, 2125, 2145, 2275, 2401, 2412, 2541, 2662, 2680, 2695, 3025

Offset: 1

Gus Wiseman, Jul 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 terms together with their prime indices begin:
    2: {1}
    9: {2,2}
   10: {1,3}
   68: {1,1,7}
   78: {1,2,6}
   98: {1,4,4}
   99: {2,2,5}
  105: {2,3,4}
  110: {1,3,5}
  125: {3,3,3}
  328: {1,1,1,13}
  444: {1,1,2,12}
  558: {1,2,2,11}
  620: {1,1,3,11}
  783: {2,2,2,10}
  812: {1,1,4,10}
  870: {1,2,3,10}
  966: {1,2,4,9}
  988: {1,1,6,8}

Partitions of this type are counted by A364055, without  zeros A206240.
The RHS is A001222.
The LHS is A326567/A326568.
A008284 counts partitions by length, A058398 by mean.
A088529/A088530 gives mean of prime signature A124010.
A112798 lists prime indices, sum A056239.
A124943 counts partitions by low median, high A124944.
A316413 ranks partitions with integer mean, counted by A067538.
A326622 counts factorizations with integer mean, strict A328966.
A363950 ranks partitions with low mean 2, counted by A026905 redoubled.
Cf. A025065, A327473, A327476, A327482, A359889, A363723, A363727, A363729, A363944, A363949.

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

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

Original entry on oeis.org

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[#]]&]

A362620 Numbers whose greatest prime factor is not a mode, meaning it appears fewer times than some other.

Original entry on oeis.org

12, 20, 24, 28, 40, 44, 45, 48, 52, 56, 60, 63, 68, 72, 76, 80, 84, 88, 90, 92, 96, 99, 104, 112, 116, 117, 120, 124, 126, 132, 135, 136, 140, 144, 148, 152, 153, 156, 160, 164, 168, 171, 172, 175, 176, 180, 184, 188, 189, 192, 198, 200, 204, 207, 208, 212

Offset: 1

Gus Wiseman, May 11 2023

nonn

First differs from A112769 in lacking 300.

			The prime factorization of 90 is 2*3*3*5, with modes {3} and maximum 5, so 90 is in the sequence.

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

Partitions of this type are counted by A240302.
The complement is A362619, counted by A171979.
A027746 lists prime factors, A112798 indices, length A001222, sum A056239.
A356862 ranks partitions with a unique mode, counted by A362608.
A359178 ranks partitions with a unique co-mode, counted by A362610.
A362605 ranks partitions with a more than one mode, counted by A362607.
A362606 ranks partitions with a more than one co-mode, counted by A362609.
A362611 counts modes in prime factorization, triangle version A362614.
A362613 counts co-modes in prime factorization, triangle version A362615.
A362621 ranks partitions with median equal to maximum, counted by A053263.
Cf. A000040, A002865, A237824, A237984, A327473, A327476, A359908, A362616.

filter:= proc(n) local F;
  F:= sort(ifactors(n)[2], (a,b) -> a[1]Robert Israel, Dec 15 2023

prifacs[n_]:=If[n==1,{},Flatten[ConstantArray@@@FactorInteger[n]]];
Select[Range[2,100],FreeQ[Commonest[prifacs[#]],Max[prifacs[#]]]&]

A364062 Number of integer partitions of n with unique co-mode 1.

Original entry on oeis.org

0, 1, 1, 1, 1, 2, 1, 3, 2, 3, 3, 6, 2, 8, 6, 9, 6, 16, 7, 21, 12, 23, 18, 39, 17, 47, 32, 59, 40, 86, 44, 110, 72, 131, 95, 188, 103, 233, 166, 288, 201, 389, 244, 490, 347, 587, 440, 794, 524, 974, 727, 1187, 903, 1547, 1106, 1908, 1459, 2303, 1826, 2979, 2198

Offset: 0

Gus Wiseman, Jul 12 2023

nonn

These are partitions with at least one 1 but with fewer 1's than each of the other parts.

We define a co-mode in a multiset to be an element that appears at most as many times as each of the other elements. For example, the co-modes of {a,a,b,b,b,c,c} are {a,c}.

			The a(n) partitions for n = 5, 7, 11, 13, 15:
  (221)    (331)      (551)          (661)            (771)
  (11111)  (2221)     (33221)        (4441)           (44331)
           (1111111)  (33311)        (33331)          (55221)
                      (222221)       (44221)          (442221)
                      (2222111)      (332221)         (3322221)
                      (11111111111)  (2222221)        (3333111)
                                     (22222111)       (22222221)
                                     (1111111111111)  (222222111)
                                                      (111111111111111)

For high (or unique) mode we have A241131, ranks A360013.
For low mode we have A241131, ranks A360015.
Allowing any unique co-mode gives A362610, ranks A359178.
These partitions have ranks A364061.
Adding all 1-free partitions gives A364159, ranks A364158.
A000041 counts integer partitions, strict A000009.
A008284 counts partitions by length (or decreasing mean), strict A008289.
A237984 counts partitions containing their mean, ranks A327473.
A327472 counts partitions not containing their mean, ranks A327476.
A362608 counts partitions w/ unique mode, ranks A356862, complement A362605.
A362611 counts modes in prime indices, triangle A362614.
A362613 counts co-modes in prime indices, triangle A362615.
A363486 gives least mode in prime indices, A363487 greatest.
Cf. A002865, A027336, A325347, A098859, A360014, A362562, A362606, A363720, A363723, A363725, A363726.

comodes[ms_]:=Select[Union[ms],Count[ms,#]<=Min@@Length/@Split[ms]&];
Table[Length[Select[IntegerPartitions[n],comodes[#]=={1}&]],{n,0,30}]

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&]

A362617 Numbers whose prime factorization has both (1) even length, and (2) unequal middle parts.

Original entry on oeis.org

6, 10, 14, 15, 21, 22, 26, 33, 34, 35, 36, 38, 39, 46, 51, 55, 57, 58, 60, 62, 65, 69, 74, 77, 82, 84, 85, 86, 87, 91, 93, 94, 95, 100, 106, 111, 115, 118, 119, 122, 123, 129, 132, 133, 134, 140, 141, 142, 143, 145, 146, 150, 155, 156, 158, 159, 161, 166, 177

Offset: 1

Gus Wiseman, May 10 2023

nonn

Also numbers n whose median prime factor is not a prime factor of n, where 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 factorization of 60 is 2*2*3*5, with middle parts (2,3), so 60 is in the sequence.

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

Partitions of this type are counted by A238479.
The complement (without 1) is A362618, counted by A238478.
A027746 lists prime factors, A112798 indices, length A001222, sum A056239.
A359893 counts partitions by median.
A359908 ranks partitions with integer median, counted by A325347.
A359912 ranks partitions with non-integer median, counted by A307683.
A362605 ranks partitions with more than one mode, counted by A362607.
A362611 counts modes in prime factorization, triangle version A362614.
A362621 ranks partitions with median equal to maximum, counted by A053263.
A362622 ranks partitions whose maximum is a middle part, counted by A237824.
Contains A006881 and (except for 1) A030229.
Cf. A000040, A171979, A327473, A327476, A356862, A359907, A362616, A362620.

filter:= proc(n) local F,m;
  F:= sort(map(t -> t[1]$t[2],ifactors(n)[2]));
  m:= nops(F);
  m::even and F[m/2] <> F[m/2+1]
end proc:
select(filter, [$2..200]); # Robert Israel, Dec 15 2023

prifacs[n_]:=If[n==1,{},Flatten[ConstantArray@@@FactorInteger[n]]];
Select[Range[2,100],FreeQ[prifacs[#],Median[prifacs[#]]]&]

A362562 Number of non-constant integer partitions of n having a unique mode equal to the mean.

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 4, 0, 3, 3, 7, 0, 12, 0, 18, 12, 9, 0, 52, 12, 14, 33, 54, 0, 121, 0, 98, 76, 31, 100, 343, 0, 45, 164, 493, 0, 548, 0, 483, 757, 88, 0, 1789, 289, 979, 645, 1290, 0, 2225, 1677, 3371, 1200, 221, 0, 10649

Offset: 0

Gus Wiseman, Jun 27 2023

nonn

A mode in a multiset is an element that appears at least as many times as each of the others. For example, the modes in {a,a,b,b,b,c,d,d,d} are {b,d}.

			The a(8) = 1 through a(16) = 7 partitions:
  (3221)  .  (32221)  .  (4332)    .  (3222221)  (43332)  (5443)
                         (5331)       (3322211)  (53331)  (6442)
                         (322221)     (4222211)  (63321)  (7441)
                         (422211)                         (32222221)
                                                          (33222211)
                                                          (42222211)
                                                          (52222111)

Partitions containing their mean are counted by A237984, ranks A327473.
Partitions missing their mean are counted by A327472, ranks A327476.
Allowing constant partitions gives A363723.
Including median also gives A363728, ranks A363729.
A000041 counts partitions, strict A000009.
A008284 counts partitions by length (or decreasing mean), strict A008289.
A359893 and A359901 count partitions by median.
A362608 counts partitions with a unique mode.
Cf. A240219, A325347, A363719, A363720, A363724, A363725, A363731, A363740.

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

cp's OEIS Frontend

A362619 One and all numbers whose greatest prime factor is a mode, meaning it appears at least as many times as each of the others.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A363729 Numbers that are not a power of a prime but whose prime indices satisfy (mean) = (median) = (mode), assuming there is a unique mode.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A363951 Numbers whose prime indices satisfy (length) = (mean), or (sum) = (length)^2.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

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

A362620 Numbers whose greatest prime factor is not a mode, meaning it appears fewer times than some other.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

A364062 Number of integer partitions of n with unique co-mode 1.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

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

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A362617 Numbers whose prime factorization has both (1) even length, and (2) unequal middle parts.

Views

Author