A327473 -id:A327473 - cp's OEIS frontend

A363950 Numbers whose prime indices have rounded-up mean 2.

3, 6, 9, 10, 12, 18, 20, 24, 27, 28, 30, 36, 40, 48, 54, 56, 60, 72, 80, 81, 84, 88, 90, 96, 100, 108, 112, 120, 144, 160, 162, 168, 176, 180, 192, 200, 208, 216, 224, 240, 243, 252, 264, 270, 280, 288, 300, 320, 324, 336, 352, 360, 384, 400, 416, 432, 448

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:
     3: {2}
     6: {1,2}
     9: {2,2}
    10: {1,3}
    12: {1,1,2}
    18: {1,2,2}
    20: {1,1,3}
    24: {1,1,1,2}
    27: {2,2,2}
    28: {1,1,4}
    30: {1,2,3}
    36: {1,1,2,2}
    40: {1,1,1,3}
    48: {1,1,1,1,2}
    54: {1,2,2,2}
    56: {1,1,1,4}
    60: {1,1,2,3}
    72: {1,1,1,2,2}
    80: {1,1,1,1,3}
    81: {2,2,2,2}

For mean 1 we have A000079 except 1.
Partitions of this type are counted by A026905 redoubled.
Equals the complement of A000079 in A344296.
Positions of 2's in A363944 (counted by column 2 of A363946).
For rounded mean 1 we have A363948, counted by A363947.
For rounded-down mean 1 we have A363949, counted by A025065.
The rounded-down or low version is A363954, counted by A363745.
A316413 ranks partitions with integer mean, counted by A067538.
A112798 lists prime indices, length A001222, sum A056239.
A326567/A326568 gives mean of prime indices.
A363941 gives low median of prime indices, triangle A124943.
A363942 gives high median of prime indices, triangle A124944.
Cf. A327473, A327476, A359889, A360005, A360013, A360015, A363727, A363943.

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

A363948 Numbers whose prime indices have mean < 3/2.

Original entry on oeis.org

2, 4, 8, 12, 16, 24, 32, 48, 64, 72, 80, 96, 128, 144, 160, 192, 256, 288, 320, 384, 432, 448, 480, 512, 576, 640, 768, 864, 896, 960, 1024, 1152, 1280, 1536, 1728, 1792, 1920, 2048, 2304, 2560, 2592, 2688, 2816, 2880, 3072, 3200, 3456, 3584, 3840, 4096, 4608

Offset: 1

Gus Wiseman, Jul 02 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 initial terms, prime indices, and means:
    2: {1} -> 1
    4: {1,1} -> 1
    8: {1,1,1} -> 1
   12: {1,1,2} -> 4/3
   16: {1,1,1,1} -> 1
   24: {1,1,1,2} -> 5/4
   32: {1,1,1,1,1} -> 1
   48: {1,1,1,1,2} -> 6/5
   64: {1,1,1,1,1,1} -> 1
   72: {1,1,1,2,2} -> 7/5
   80: {1,1,1,1,3} -> 7/5
   96: {1,1,1,1,1,2} -> 7/6

These partitions are counted by A363947.
Prime indices have mean A326567/A326568.
For low mode we have A360015, high A360013.
Positions of 1's in A363489.
A112798 lists prime indices, length A001222, sum A056239.
A316413 ranks partitions with integer mean, counted by A067538.
A360005 gives twice the median of prime indices.
A363949 ranks partitions with low mean 1, counted by A025065.
A363950 ranks partitions with low mean 2, counted by A026905 redoubled.
Cf. A051293, A124944, A327473, A327476, A327482, A359889, A363727, A363942, A363943, A363946, A363951.

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

A360008 Positions of first appearances in the sequence giving the mean of prime indices (A326567/A326568).

Original entry on oeis.org

1, 3, 5, 6, 7, 11, 12, 13, 14, 17, 18, 19, 23, 24, 26, 29, 31, 37, 38, 41, 42, 43, 47, 48, 52, 53, 54, 58, 59, 61, 67, 71, 72, 73, 74, 76, 79, 83, 86, 89, 92, 96, 97, 101, 103, 104, 106, 107, 108, 109, 113, 122, 124, 127, 131, 137, 139, 142, 148, 149, 151, 152

Offset: 1

Gus Wiseman, Jan 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.

			The terms together with their prime indices begin:
    1: {}
    3: {2}
    5: {3}
    6: {1,2}
    7: {4}
   11: {5}
   12: {1,1,2}
   13: {6}
   14: {1,4}
   17: {7}
   18: {1,2,2}
   19: {8}
   23: {9}
   24: {1,1,1,2}

Positions of first appearances in A326567/A326568.
The version for median instead of mean is A360007, unsorted A360006.
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.
A326567/A326568 gives mean of prime indices.
A359908 = numbers w/ integer median of prime indices, complement A359912.
Cf. A026424, A051293, A327473, A348551, A359889, A360005.

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

A362621 One and numbers whose multiset of prime factors (with multiplicity) has the same median as maximum.

Original entry on oeis.org

1, 2, 3, 4, 5, 7, 8, 9, 11, 13, 16, 17, 18, 19, 23, 25, 27, 29, 31, 32, 37, 41, 43, 47, 49, 50, 53, 54, 59, 61, 64, 67, 71, 73, 75, 79, 81, 83, 89, 97, 98, 101, 103, 107, 108, 109, 113, 121, 125, 127, 128, 131, 137, 139, 147, 149, 151, 157, 162, 163, 167, 169

Offset: 1

Gus Wiseman, May 12 2023

nonn

First differs from A334965 in having 750 and lacking 2250.

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 108 is 2*2*3*3*3, and the multiset {2,2,3,3,3} has median 3 and maximum 3, so 108 is in the sequence.
The prime factorization of 2250 is 2*3*3*5*5*5, and the multiset {2,3,3,5,5,5} has median 4 and maximum 5, so 2250 is not in the sequence.
The terms together with their prime indices begin:
     1: {}           25: {3,3}           64: {1,1,1,1,1,1}
     2: {1}          27: {2,2,2}         67: {19}
     3: {2}          29: {10}            71: {20}
     4: {1,1}        31: {11}            73: {21}
     5: {3}          32: {1,1,1,1,1}     75: {2,3,3}
     7: {4}          37: {12}            79: {22}
     8: {1,1,1}      41: {13}            81: {2,2,2,2}
     9: {2,2}        43: {14}            83: {23}
    11: {5}          47: {15}            89: {24}
    13: {6}          49: {4,4}           97: {25}
    16: {1,1,1,1}    50: {1,3,3}         98: {1,4,4}
    17: {7}          53: {16}           101: {26}
    18: {1,2,2}      54: {1,2,2,2}      103: {27}
    19: {8}          59: {17}           107: {28}
    23: {9}          61: {18}           108: {1,1,2,2,2}

Partitions of this type are counted by A053263.
For mode instead of median we have A362619, counted by A171979.
For parts at middle position (instead of median) we have A362622.
The complement is A362980, counted by A237821.
A027746 lists prime factors, A112798 indices, length A001222, sum A056239.
A362611 counts modes in prime factorization, triangle version A362614.
A362613 counts co-modes in prime factorization, triangle version A362615.
Cf. A000040, A002865, A237824, A327473, A327476, A359908, A362616, A362620.

Select[Range[100],(y=Flatten[Apply[ConstantArray,FactorInteger[#],{1}]];Max@@y==Median[y])&]

A363730 Numbers whose prime indices have different mean, median, and mode.

Original entry on oeis.org

42, 60, 66, 70, 78, 84, 102, 114, 130, 132, 138, 140, 150, 154, 156, 165, 170, 174, 180, 182, 186, 190, 195, 204, 220, 222, 228, 230, 231, 246, 255, 258, 260, 266, 276, 282, 285, 286, 290, 294, 308, 310, 315, 318, 322, 330, 340, 345, 348, 354, 357, 360, 364

Offset: 1

Gus Wiseman, Jun 24 2023

nonn

If there are multiple modes, then the mode is automatically considered different from the mean and median; otherwise, we take the unique mode.
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 180 are {1,1,2,2,3}, with mean 9/5, median 2, modes {1,2}, so 180 is in the sequence.
The prime indices of 108 are {1,1,2,2,2}, with mean 8/5, median 2, modes {2}, so 108 is not in the sequence.
The terms together with their prime indices begin:
   42: {1,2,4}
   60: {1,1,2,3}
   66: {1,2,5}
   70: {1,3,4}
   78: {1,2,6}
   84: {1,1,2,4}
  102: {1,2,7}
  114: {1,2,8}
  130: {1,3,6}
  132: {1,1,2,5}
  138: {1,2,9}
  140: {1,1,3,4}
  150: {1,2,3,3}

These partitions are counted by A363720
For equal instead of unequal we have A363727, counted by A363719.
The version for factorizations is A363742, equal A363741.
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. A000961, A327473, A327476, A359908, A363722, A363725, A363729.

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[100],{Mean[prix[#]]}!={Median[prix[#]]}!=modes[prix[#]]&]

All three of A326567(a(n))/A326568(a(n)), A360005(a(n))/2, and A363486(a(n)) = A363487(a(n)) are different.

A364061 Numbers whose exponent of 2 in their canonical prime factorization is smaller than all the other exponents.

Original entry on oeis.org

2, 4, 8, 16, 18, 32, 50, 54, 64, 98, 108, 128, 162, 242, 250, 256, 324, 338, 450, 486, 500, 512, 578, 648, 686, 722, 882, 972, 1024, 1058, 1250, 1350, 1372, 1458, 1682, 1922, 1944, 2048, 2178, 2250, 2450, 2500, 2646, 2662, 2738, 2916, 3042, 3362, 3698, 3888

Offset: 1

Gus Wiseman, Jul 12 2023

nonn

Also numbers whose multiset of prime factors has unique co-mode 2. Here, a co-mode in a multiset is 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 terms together with their prime factors begin:
    2 = 2
    4 = 2*2
    8 = 2*2*2
   16 = 2*2*2*2
   18 = 2*3*3
   32 = 2*2*2*2*2
   50 = 2*5*5
   54 = 2*3*3*3
   64 = 2*2*2*2*2*2
   98 = 2*7*7
  108 = 2*2*3*3*3
  128 = 2*2*2*2*2*2*2

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

For any unique co-mode: A359178, counted by A362610, complement A362606.
For high mode: A360013, positions of 1's in A363487, counted by A241131.
For low mode: A360015, positions of 1's in A363486, counted by A241131.
Partitions of this type are counted by A364062.
For low co-mode: A364158, positions of 1's in A364192, counted by A364159.
Positions of 1's in A364191, high A364192.
A112798 lists prime indices, length A001222, sum A056239.
A356862 ranks partitions w/ unique mode, count A362608, complement A362605.
A362611 counts modes in prime indices, triangle A362614.
A362613 counts co-modes in prime indices, triangle A362615.
Cf. A000265, A007814, A327473, A327476, A362616, A360014, A363722, A363723, A363725, A363727, A363730.

filter:= proc(n) local F,F2,Fo;
  F:= ifactors(n)[2];
  F2,Fo:= selectremove(t -> t[1]=2, F);
  Fo = [] or F2[1,2] < min(Fo[..,2])
end proc:
select(filter, 2*[$1..5000]); # Robert Israel, Apr 22 2024

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

from sympy import factorint
from itertools import count, islice
def A364061_gen(startvalue=2): # generator of terms >= startvalue
    return filter(lambda n:(l:=(~n&n-1).bit_length()) < min(factorint(m:=n>>l).values(),default=0) or m==1, count(max(startvalue+startvalue&1,2),2))
A364061_list = list(islice(A364061_gen(),30)) # Chai Wah Wu, Jul 14 2023

Sum_{n>=1} 1/a(n) = 1 + Sum_{k>=2} (1-1/2^(k-1))*(s(k)-s(k+1)) = 1.16896822653093929144..., where s(k) = Product_{primes p >= 3} (1 + 1/(p^(k-1)*(p-1))) is the sum of reciprocals of the odd k-full numbers (numbers whose prime factorization has no exponent that is smaller than k). - Amiram Eldar, Aug 30 2024

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

Gus Wiseman, Jan 20 2023

nonn

			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)

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.

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

Gus Wiseman, Jan 20 2023

nonn

			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)

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.

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

A362622 One and numbers whose prime factorization has its greatest part at a middle position.

Original entry on oeis.org

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, 31, 32, 33, 34, 35, 36, 37, 38, 39, 41, 43, 46, 47, 49, 50, 51, 53, 54, 55, 57, 58, 59, 61, 62, 64, 65, 67, 69, 71, 73, 74, 75, 77, 79, 81, 82, 83, 85, 86, 87, 89, 91

Offset: 1

Gus Wiseman, May 12 2023

nonn

			The prime factorization of 150 is 5*5*3*2, with middle parts {3,5}, so 150 is in the sequence.
The prime factorization of 90 is 5*3*3*2, with middle parts {3,3}, so 90 is not in the sequence.

Partitions of this type are counted by A237824.
For modes instead of middles we have A362619, counted by A171979.
The version for median instead of middles is A362621, counted by A053263.
The complement for median is A362980, counted by A237821.
A027746 lists prime factors, A112798 indices, length A001222, sum A056239.
A362611 counts modes in prime factorization.
A362613 counts co-modes in prime factorization.
Cf. A000040, A002865, A237984, A327473, A327476, A359908, A362616, A362620.

mpm[q_]:=MemberQ[If[OddQ[Length[q]],{Median[q]},{q[[Length[q]/2]],q[[Length[q]/2+1]]}],Max@@q];
Select[Range[100],#==1||mpm[Flatten[Apply[ConstantArray,FactorInteger[#],{1}]]]&]

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

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

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.

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

cp's OEIS Frontend

A363950 Numbers whose prime indices have rounded-up mean 2.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A363948 Numbers whose prime indices have mean < 3/2.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A360008 Positions of first appearances in the sequence giving the mean of prime indices (A326567/A326568).

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A362621 One and numbers whose multiset of prime factors (with multiplicity) has the same median as maximum.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A363730 Numbers whose prime indices have different mean, median, and mode.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A364061 Numbers whose exponent of 2 in their canonical prime factorization is smaller than all the other exponents.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Python

Formula

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

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

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

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

A362622 One and numbers whose prime factorization has its greatest part at a middle position.

Views

Author

Keywords