A327476 -id:A327476 - cp's OEIS frontend

A327473 Heinz numbers of integer partitions whose mean A326567/A326568 is a part.

2, 3, 4, 5, 7, 8, 9, 11, 13, 16, 17, 19, 23, 25, 27, 29, 30, 31, 32, 37, 41, 43, 47, 49, 53, 59, 61, 64, 67, 71, 73, 79, 81, 83, 84, 89, 90, 97, 101, 103, 105, 107, 109, 110, 113, 121, 125, 127, 128, 131, 137, 139, 149, 151, 157, 163, 167, 169, 173, 179, 181

Offset: 1

Gus Wiseman, Sep 13 2019

nonn

The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k).

			The sequence of terms together with their prime indices begins:
   2: {1}
   3: {2}
   4: {1,1}
   5: {3}
   7: {4}
   8: {1,1,1}
   9: {2,2}
  11: {5}
  13: {6}
  16: {1,1,1,1}
  17: {7}
  19: {8}
  23: {9}
  25: {3,3}
  27: {2,2,2}
  29: {10}
  30: {1,2,3}
  31: {11}
  32: {1,1,1,1,1}
  37: {12}

A subsequence of A316413.
Complement of A327476.
The enumeration of these partitions by sum is given by A237984.
Subsets whose mean is a part are A065795.
Numbers whose binary indices include their mean are A327478.
Cf. A000016, A056239, A067538, A112798, A240850, A325706, A326567/A326568.

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

A362611 Number of modes in the prime factorization of n.

Original entry on oeis.org

0, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 2, 2, 1, 1, 1, 2, 1, 1, 1, 3, 1, 1, 2, 2, 2, 2, 1, 2, 2, 1, 1, 3, 1, 1, 1, 2, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 2, 2, 1, 1, 1, 2, 1, 1, 2, 3, 1, 1, 2, 3, 1, 1, 1, 2, 1, 1, 2, 3, 1, 1, 1, 2, 1, 1, 2, 2, 2

Offset: 1

Gus Wiseman, May 05 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 of {a,a,b,b,b,c,d,d,d} are {b,d}.

a(n) depends only on the prime signature of n. - Andrew Howroyd, May 08 2023

			The factorization of 450 is 2*3*3*5*5, modes {3,5}, so a(450) = 2.
The factorization of 900 is 2*2*3*3*5*5, modes {2,3,5}, so a(900) = 3.
The factorization of 1500 is 2*2*3*5*5*5, modes {5}, so a(1500) = 1.
The factorization of 8820 is 2*2*3*3*5*7*7, modes {2,3,7}, so a(8820) = 3.

Andrew Howroyd, Table of n, a(n) for n = 1..10000

Positions of first appearances are A002110.
Positions of 1's are A356862, counted by A362608.
Positions of terms > 1 are A362605, counted by A362607.
For co-mode we have A362613, counted by A362615.
This statistic (mode-count) has triangular form A362614.
A027746 lists prime factors (with multiplicity).
A112798 lists prime indices, length A001222, sum A056239.
A359178 ranks partitions with a unique co-mode, counted by A362610.
A362606 ranks partitions with more than one co-mode, counted by A362609.
Cf. A000040, A000720, A001221, A002865, A072774, A215366, A327473, A327476, A359908.

Table[x=Last/@If[n==1,0,FactorInteger[n]];Count[x,Max@@x],{n,100}]

a(n) = if(n==1, 0, my(f=factor(n)[,2], m=vecmax(f)); #select(v->v==m, f)) \\ Andrew Howroyd, May 08 2023

from sympy import factorint
def A362611(n): return list(v:=factorint(n).values()).count(max(v,default=0)) # Chai Wah Wu, May 08 2023

For n > 1, 1 <= a(n) << log n. - Charles R Greathouse IV, May 09 2023

a(n) <= A001221(n), with equality if and only if n is a power of a squarefree number (A072774). - Amiram Eldar, Mar 02 2025

A327472 Number of integer partitions of n not containing their mean.

Original entry on oeis.org

1, 0, 0, 1, 2, 5, 6, 13, 16, 25, 34, 54, 56, 99, 121, 154, 201, 295, 324, 488, 541, 725, 957, 1253, 1292, 1892, 2356, 2813, 3378, 4563, 4838, 6840, 7686, 9600, 12076, 14180, 15445, 21635, 25627, 29790, 33309, 44581, 48486, 63259, 70699, 82102, 104553, 124752

Offset: 0

Gus Wiseman, Sep 13 2019

nonn

			The a(3) = 1 through a(8) = 16 partitions not containing their mean:
  (21)  (31)   (32)    (42)     (43)      (53)
        (211)  (41)    (51)     (52)      (62)
               (221)   (411)    (61)      (71)
               (311)   (2211)   (322)     (332)
               (2111)  (3111)   (331)     (422)
                       (21111)  (421)     (431)
                                (511)     (521)
                                (2221)    (611)
                                (3211)    (3311)
                                (4111)    (5111)
                                (22111)   (22211)
                                (31111)   (32111)
                                (211111)  (41111)
                                          (221111)
                                          (311111)
                                          (2111111)

The Heinz numbers of these partitions are A327476.
Partitions with their mean are A237984.
Subsets without their mean are A327471.
Subsets with n but without their mean are A327477.
Strict partitions without their mean are A240851.
Cf. A007865, A067538, A067538, A102627, A114639, A324756, A327473.

Table[Length[Select[IntegerPartitions[n],!MemberQ[#,Mean[#]]&]],{n,0,20}]

from sympy.utilities.iterables import partitions
def A327472(n): return sum(1 for s,p in partitions(n,size=True) if n%s or n//s not in p) if n else 1 # Chai Wah Wu, Sep 21 2023

A362613 Number of co-modes in the prime factorization of n.

Original entry on oeis.org

0, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 2, 2, 1, 1, 1, 2, 1, 1, 1, 3, 1, 1, 2, 2, 2, 2, 1, 2, 2, 1, 1, 3, 1, 1, 1, 2, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 1, 2, 3, 1, 1, 2, 3, 1, 1, 1, 2, 1, 1, 2, 3, 1, 1, 1, 2, 1, 2, 2, 2, 2

Offset: 1

Gus Wiseman, May 05 2023

nonn

First differs from A327500 at n = 180.
First differs from A351946 at n = 180.
First differs from A353507 at n = 180.
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 of {a,a,b,b,b,c,c} are {a,c}.
a(n) depends only on the prime signature of n. - Andrew Howroyd, May 08 2023

			The factorization of 180 is 2*2*3*3*5, co-modes {5}, so a(180) = 1.
The factorization of 900 is 2*2*3*3*5*5, co-modes {2,3,5}, so a(900) = 3.
The factorization of 8820 is 2*2*3*3*5*7*7, co-modes {5}, so a(8820) = 1.

Andrew Howroyd, Table of n, a(n) for n = 1..10000

Positions of first appearances are A002110.
Positions of 1's are A359178, counted by A362610.
Positions of terms > 1 are A362606, counted by A362609.
For mode we have A362611, counted by A362614.
Counting partitions by this statistic (co-mode count) gives A362615.
A027746 lists prime factors (with multiplicity).
A112798 lists prime indices, length A001222, sum A056239.
Cf. A000040, A215366, A327473, A327476, A356862, A359908, A362605.

Table[x=Last/@If[n==1,0,FactorInteger[n]];Count[x,Min@@x],{n,100}]

a(n) = if(n==1, 0, my(f=factor(n)[,2], m=vecmin(f)); #select(v->v==m, f)) \\ Andrew Howroyd, May 08 2023

from sympy import factorint
def A362613(n):
    v = factorint(n).values()
    w = min(v,default=0)
    return sum(1 for e in v if e<=w) # Chai Wah Wu, May 08 2023

A359178 Numbers with a unique smallest prime exponent.

Original entry on oeis.org

2, 3, 4, 5, 7, 8, 9, 11, 12, 13, 16, 17, 18, 19, 20, 23, 24, 25, 27, 28, 29, 31, 32, 37, 40, 41, 43, 44, 45, 47, 48, 49, 50, 52, 53, 54, 56, 59, 61, 63, 64, 67, 68, 71, 72, 73, 75, 76, 79, 80, 81, 83, 88, 89, 92, 96, 97, 98, 99, 101, 103, 104, 107, 108, 109, 112, 113, 116, 117

Offset: 1

Jens Ahlström, Jan 08 2023

nonn

180 is the smallest number with a unique smallest prime exponent that is not a member of A130091.

			2 = 2^1 is a term since it has 1 as a unique smallest exponent.
6 = 2^1 * 3^1 is not a term since it has two primes with the same smallest exponent.
180 = 2^2 * 3^2 * 5^1 is a term since it has 1 as a unique smallest exponent.

Jens Ahlström, Table of n, a(n) for n = 1..9999
Wikipedia, Mode (statistics).

For parts instead of multiplicities we have A247180, counted by A002865.
For greatest instead of smallest we have A356862, counted by A362608.
The complement is A362606, counted by A362609.
Partitions of this type are counted by A362610.
These are the positions of 1's in A362613, for modes A362611.
A001221 counts prime exponents and A001222 adds them up.
A027746 lists prime factors, A112798 indices, A124010 exponents.
Cf. A102750, A130091, A327473, A327476, A359908, A362605, A362615.

q[n_] := Module[{e = FactorInteger[n][[;; , 2]]}, Count[e, Min[e]] == 1]; Select[Range[2, 200], q] (* Amiram Eldar, Jan 08 2023 *)

isok(n) = if (n>1, my(f=factor(n), e = vecmin(f[,2])); #select(x->(x==e), f[,2], 1) == 1); \\ Michel Marcus, Jan 27 2023

from sympy import factorint
def ok(k):
  c = sorted(factorint(k).values())
  return len(c) == 1 or c[0] != c[1]
print([k for k in range(2, 118) if ok(k)])

from itertools import count, islice
from sympy import factorint
def A359178_gen(startvalue=2): # generator of terms >= startvalue
    return filter(lambda n:(f:=list(factorint(n).values())).count(min(f))==1,count(max(startvalue,2)))
A359178_list = list(islice(A359178_gen(),20)) # Chai Wah Wu, Feb 08 2023

A362605 Numbers whose prime factorization has more than one mode. Numbers without a unique exponent of maximum frequency in the prime signature.

Original entry on oeis.org

6, 10, 14, 15, 21, 22, 26, 30, 33, 34, 35, 36, 38, 39, 42, 46, 51, 55, 57, 58, 62, 65, 66, 69, 70, 74, 77, 78, 82, 85, 86, 87, 91, 93, 94, 95, 100, 102, 105, 106, 110, 111, 114, 115, 118, 119, 122, 123, 129, 130, 133, 134, 138, 141, 142, 143, 145, 146, 154

Offset: 1

Gus Wiseman, May 05 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 of {a,a,b,b,b,c,d,d,d} are {b,d}.

			The prime indices of 180 are {1,1,2,2,3}, with modes {1,2}, so 180 is in the sequence, and the sequence differs from A182853.
The terms together with their prime indices begin:
     6: {1,2}
    10: {1,3}
    14: {1,4}
    15: {2,3}
    21: {2,4}
    22: {1,5}
    26: {1,6}
    30: {1,2,3}
    33: {2,5}
    34: {1,7}
    35: {3,4}
    36: {1,1,2,2}
    38: {1,8}
    39: {2,6}
    42: {1,2,4}
    46: {1,9}
    51: {2,7}
    55: {3,5}

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

The first term with bigomega n appears to be A166023(n).
The complement is A356862, counted by A362608.
For co-mode complement we have A359178, counted by A362610.
For co-mode we have A362606, counted by A362609.
Partitions of this type are counted by A362607.
These are the positions of terms > 1 in A362611.
A112798 lists prime indices, length A001222, sum A056239.
A362614 counts partitions by number of modes, ranks A362611.
A362615 counts partitions by number of co-modes, ranks A362613.
Cf. A002865, A215366, A327473, A327476, A353864, A359908, A362612.

q:= n-> (l-> nops(l)>1 and l[-1]=l[-2])(sort(map(i-> i[2], ifactors(n)[2]))):
select(q, [$1..250])[];  # Alois P. Heinz, May 10 2023

Select[Range[100],Count[Last/@FactorInteger[#], Max@@Last/@FactorInteger[#]]>1&]

is(n) = {my(e = factor(n)[, 2]); if(#e < 2, 0, e = vecsort(e); e[#e-1] == e[#e]);} \\ Amiram Eldar, Jan 20 2024

from sympy import factorint
def ok(n): return n>1 and (e:=list(factorint(n).values())).count(max(e))>1
print([k for k in range(155) if ok(k)]) # Michael S. Branicky, May 06 2023

A360015 Numbers whose exponent of 2 in their canonical prime factorization is equal to the maximal exponent.

Original entry on oeis.org

1, 2, 4, 6, 8, 10, 12, 14, 16, 20, 22, 24, 26, 28, 30, 32, 34, 36, 38, 40, 42, 44, 46, 48, 52, 56, 58, 60, 62, 64, 66, 68, 70, 72, 74, 76, 78, 80, 82, 84, 86, 88, 92, 94, 96, 100, 102, 104, 106, 110, 112, 114, 116, 118, 120, 122, 124, 128, 130, 132, 134, 136, 138

Offset: 1

Amiram Eldar, Jan 21 2023

Numbers k such that A007814(k) = A051903(k).
The powers of 2 (A000079) are all terms.
The product of any two terms (not necessarily distinct) is also a term.
This sequence is a disjoint union of {1} and the subsequences of numbers m of the form 2^(k-1)*o where o = A000265(m), the odd part of m, is a k-free number, for k >= 2. These subsequences include, for k = 2, numbers of the form 2*o where o is an odd squarefree number (A056911); for k = 3, numbers of the form 4*o where o is an odd cubefree number; etc.
The asymptotic density of this sequence is Sum_{k>=2} 1/(zeta(k)*(2^k-1)) = 0.44541445377638761933... .
The asymptotic mean of the exponent of 2 in the prime factorization of the terms of this sequence is Sum_{k>=2} (k-1)/(zeta(k)*(2^k-1)) / Sum_{k>=2} 1/(zeta(k)*(2^k-1)) = 2.10346728882748723133... . [corrected by Amiram Eldar, Jul 10 2025]
Also numbers whose multiset of prime factors has low (i.e. least) mode 2. Here, 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}. - Gus Wiseman, Jul 14 2023

			From _Gus Wiseman_, Jul 14 2023: (Start)
108 = 2*2*3*3*3 is missing because its mode is not 2.
180 = 2*2*3*3*5 is present because it has low mode 2.
The terms together with their prime factorizations begin:
   1 =
   2 = 2
   4 = 2*2
   6 = 2*3
   8 = 2*2*2
  10 = 2*5
  12 = 2*2*3
  14 = 2*7
  16 = 2*2*2*2
  20 = 2*2*5
  22 = 2*11
  24 = 2*2*2*3
  26 = 2*13
  28 = 2*2*7
  30 = 2*3*5
  32 = 2*2*2*2*2
  34 = 2*17
  36 = 2*2*3*3
(End)

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

Cf. A000079, A000265, A007814, A051903, A056911.
Partitions of this type are counted by A241131.
The case of unique mode is A360013, complement here A360014.
For unique minimal prime exponent we have A364061, counted by A364062.
For minimal prime exponent we have A364158, counted by A364159.
A027746 lists prime factors (with multiplicity).
A112798 lists prime indices, length A001222, sum A056239.
A362611 counts modes in prime indices, triangle A362614.
Cf. A002865, A327473, A327476, A356862, A359178, A362605, A362613, A363486.

q[n_] := IntegerExponent[n, 2] == Max[FactorInteger[n][[;; , 2]]]; q[1] = True; Select[Range[150], q]

is(n) = n == 1 || vecmax(factor(n)[,2]) == valuation(n, 2);

Disjoint union of A360013 and A360014.

a(n) = A360013(n)/2. - Gus Wiseman, Jul 14 2023

A363723 Number of integer partitions of n having a unique mode equal to the mean, i.e., partitions whose mean appears more times than each of the other parts.

Original entry on oeis.org

0, 1, 2, 2, 3, 2, 4, 2, 5, 3, 5, 2, 10, 2, 7, 7, 12, 2, 18, 2, 24, 16, 13, 2, 60, 15, 18, 37, 60, 2, 129, 2, 104, 80, 35, 104, 352, 2, 49, 168, 501, 2, 556, 2, 489, 763, 92, 2, 1799, 292, 985, 649, 1296, 2, 2233, 1681, 3379, 1204, 225, 2, 10661

Offset: 0

Gus Wiseman, Jun 24 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(n) partitions for n = 6, 8, 12, 14, 16 (A..G = 10..16):
  (6)       (8)         (C)             (E)               (G)
  (33)      (44)        (66)            (77)              (88)
  (222)     (2222)      (444)           (2222222)         (4444)
  (111111)  (3221)      (3333)          (3222221)         (5443)
            (11111111)  (4332)          (3322211)         (6442)
                        (5331)          (4222211)         (7441)
                        (222222)        (11111111111111)  (22222222)
                        (322221)                          (32222221)
                        (422211)                          (33222211)
                        (111111111111)                    (42222211)
                                                          (52222111)
                                                          (1111111111111111)

Partitions containing their mean are counted by A237984, ranks A327473.
For median instead of mode we have A240219, ranks A359889.
Partitions missing their mean are counted by A327472, ranks A327476.
The case of non-constant partitions is A362562.
Including median also gives A363719, ranks A363727.
Allowing multiple modes gives A363724.
Requiring multiple modes gives A363731.
For median instead of mean we have A363740.
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. A325347, A326567/A326568, A363720, A363725, A363730.

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

A362606 Numbers without a unique least prime exponent, or numbers whose prime factorization has more than one element of least multiplicity.

Original entry on oeis.org

6, 10, 14, 15, 21, 22, 26, 30, 33, 34, 35, 36, 38, 39, 42, 46, 51, 55, 57, 58, 60, 62, 65, 66, 69, 70, 74, 77, 78, 82, 84, 85, 86, 87, 90, 91, 93, 94, 95, 100, 102, 105, 106, 110, 111, 114, 115, 118, 119, 120, 122, 123, 126, 129, 130, 132, 133, 134, 138, 140

Offset: 1

Gus Wiseman, May 05 2023

nonn

First differs from A130092 in lacking 180.
First differs from A351295 in lacking 180 and having 216.
First differs from A362605 in having 60.

			The prime factorization of 1800 is {2,2,2,3,3,5,5}, and the parts of least multiplicity are {3,5}, so 1800 is in the sequence.
The terms together with their prime indices begin:
    6: {1,2}
   10: {1,3}
   14: {1,4}
   15: {2,3}
   21: {2,4}
   22: {1,5}
   26: {1,6}
   30: {1,2,3}
   33: {2,5}
   34: {1,7}
   35: {3,4}
   36: {1,1,2,2}
   38: {1,8}
   39: {2,6}
   42: {1,2,4}

The complement is A359178, counted by A362610.
For mode we have A362605, counted by A362607.
Partitions of this type are counted by A362609.
These are the positions of terms > 1 in A362613.
A112798 lists prime indices, length A001222, sum A056239.
A362614 counts partitions by number of modes.
A362615 counts partitions by number of co-modes.
Cf. A215366, A327473, A327476, A353864, A356862, A359908, A362611.

Select[Range[100],Count[Last/@FactorInteger[#],Min@@Last/@FactorInteger[#]]>1&]

A359890 Numbers whose prime indices do not have the same mean as median.

Original entry on oeis.org

12, 18, 20, 24, 28, 40, 42, 44, 45, 48, 50, 52, 54, 56, 60, 63, 66, 68, 70, 72, 75, 76, 78, 80, 84, 88, 92, 96, 98, 99, 102, 104, 108, 112, 114, 116, 117, 120, 124, 126, 130, 132, 135, 136, 138, 140, 144, 147, 148, 150, 152, 153, 154, 156, 160, 162, 164, 165

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}
   24: {1,1,1,2}
   28: {1,1,4}
   40: {1,1,1,3}
   42: {1,2,4}
   44: {1,1,5}
   45: {2,2,3}
   48: {1,1,1,1,2}
For example, the prime indices of 360 are {1,1,1,2,2,3}, with mean 5/3 and median 3/2, so 360 is in the sequence.

The LHS (mean of prime indices) is A326567/A326568.
The complement is A359889, counted by A240219.
The odd-length case is A359891, complement A359892.
These partitions are counted by A359894.
The strict case is counted by A359898, odd-length A359900.
The RHS (median of prime indices) is A360005/2.
A058398 counts partitions by mean, see also A008284, A327482.
A088529/A088530 gives mean of prime signature A124010.
A112798 lists prime indices, length A001222, sum A056239.
A316413 lists numbers whose prime indices have integer mean.
A359908 lists numbers whose prime indices have integer median.
Cf. A327473, A327476, A348551, A359903, A359911, A359912, A360006-A360009.

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

cp's OEIS Frontend

A327473 Heinz numbers of integer partitions whose mean A326567/A326568 is a part.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A362611 Number of modes in the prime factorization of n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Python

Formula

A327472 Number of integer partitions of n not containing their mean.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

Python

A362613 Number of co-modes in the prime factorization of n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Python

A359178 Numbers with a unique smallest prime exponent.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Python

Python

A362605 Numbers whose prime factorization has more than one mode. Numbers without a unique exponent of maximum frequency in the prime signature.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

PARI

Python

A360015 Numbers whose exponent of 2 in their canonical prime factorization is equal to the maximal exponent.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica