A078174 -id:A078174 - cp's OEIS frontend

A360248 Numbers for which the prime indices do not have the same median as the distinct prime indices.

12, 18, 20, 24, 28, 40, 44, 45, 48, 50, 52, 54, 56, 60, 63, 68, 72, 75, 76, 80, 84, 88, 92, 96, 98, 99, 104, 108, 112, 116, 117, 120, 124, 132, 135, 136, 140, 144, 147, 148, 150, 152, 153, 156, 160, 162, 164, 168, 171, 172, 175, 176, 184, 188, 189, 192, 200

Offset: 1

Gus Wiseman, Feb 07 2023

nonn

First differs from A242416 in lacking 180, with prime indices {1,1,2,2,3}.
First differs from A360246 in lacking 126 and having 1950.
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}
  44: {1,1,5}
  45: {2,2,3}
  48: {1,1,1,1,2}
  50: {1,3,3}
  52: {1,1,6}
  54: {1,2,2,2}
  56: {1,1,1,4}
  60: {1,1,2,3}
  63: {2,2,4}
  68: {1,1,7}
  72: {1,1,1,2,2}
The prime indices of 126 are {1,2,2,4} with median 2 and distinct prime indices {1,2,4} with median 2, so 126 is not in the sequence.
The prime indices of 1950 are {1,2,3,3,6} with median 3 and distinct prime indices {1,2,3,6} with median 5/2, so 1950 is in the sequence.

These partitions are counted by A360244.
The complement is A360249, counted by A360245.
For multiplicities instead of parts: complement of A360453.
For multiplicities instead of distinct parts: complement of A360454.
For mean instead of median we have A360246, counted by A360242.
The complement for mean instead of median is A360247, counted by A360243.
A112798 lists prime indices, length A001222, sum A056239.
A326567/A326568 gives mean of prime indices.
A326619/A326620 gives mean of distinct prime indices.
A325347 = partitions with integer median, strict A359907, ranked by A359908.
A359893 and A359901 count partitions by median.
A360005 gives median of prime indices (times two).
Cf. A000975, A078174, A316413, A324570, A359890, A360455, A360456.

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

A326625 Number of strict integer partitions of n whose geometric mean is an integer.

Original entry on oeis.org

0, 1, 1, 1, 1, 2, 1, 2, 1, 1, 3, 1, 1, 3, 2, 2, 1, 2, 1, 2, 4, 3, 1, 2, 1, 4, 5, 2, 3, 3, 3, 5, 1, 3, 5, 5, 3, 4, 4, 7, 7, 5, 5, 2, 4, 2, 5, 7, 4, 6, 9, 5, 7, 7, 8, 7, 5, 11, 5, 9, 9, 9, 7, 9, 5, 13, 7, 9, 7, 11, 12, 7, 7, 12, 9, 13, 11, 10, 13, 7, 14

Offset: 0

Gus Wiseman, Jul 14 2019

nonn

			The a(63) = 9 partitions:
  (63)  (36,18,9)  (54,4,3,2)   (36,18,6,2,1)   (36,9,8,6,3,1)
        (48,12,3)  (27,24,8,4)  (18,16,12,9,8)
                   (32,18,9,4)
The initial terms count the following partitions:
   1: (1)
   2: (2)
   3: (3)
   4: (4)
   5: (5)
   5: (4,1)
   6: (6)
   7: (7)
   7: (4,2,1)
   8: (8)
   9: (9)
  10: (10)
  10: (9,1)
  10: (8,2)
  11: (11)
  12: (12)
  13: (13)
  13: (9,4)
  13: (9,3,1)
  14: (14)
  14: (8,4,2)
  15: (15)
  15: (12,3)
  16: (16)

Wikipedia, Geometric mean

Partitions whose geometric mean is an integer are A067539.
Strict partitions whose average is an integer are A102627.
Cf. A078174, A078175, A326027, A326567/A326568, A326623, A326624.

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

A123529 Denominator of average of prime factors of n.

Original entry on oeis.org

1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 3, 1, 2, 1, 1, 1, 3, 1, 1, 1, 2, 1, 4, 1, 2, 1, 3, 1, 3, 1, 1, 1, 2, 1, 2, 1, 2, 1, 4, 1, 1, 1, 1, 3, 2, 1, 5, 1, 1, 1, 3, 1, 4, 1, 4, 1, 2, 1, 1, 1, 2, 3, 1, 1, 3, 1, 1, 1, 3, 1, 5, 1, 2, 3, 3, 1, 1, 1, 5, 1, 2, 1, 2, 1, 2, 1, 4, 1, 4, 1, 1, 1, 2, 1, 6, 1, 3, 3, 2, 1, 3, 1, 4, 1, 2

Offset: 2

Franklin T. Adams-Watters, Oct 02 2006

Prime factors counted with multiplicity. - Harvey P. Dale, Jun 20 2013

Positions of 1's are A078175. a(n) is a divisor of Omega(n) = A001222(n). The average of prime indices (as opposed to prime factors) of n is A326567(n)/A326568(n). - Gus Wiseman, Jul 18 2019

G. C. Greubel, Table of n, a(n) for n = 2..5000

See A123528 for more formulas and references.

Cf. A078174, A078175, A112798, A316413, A326567/A326568, A326619/A326620, A326621.

Table[Denominator[Mean[Flatten[Table[#[[1]],{#[[2]]}]&/@ FactorInteger[ n]]]],{n,110}] (* Harvey P. Dale, Jun 20 2013 *)

A360241 Number of integer partitions of n whose distinct parts have integer mean.

Original entry on oeis.org

0, 1, 2, 2, 4, 3, 8, 6, 13, 13, 22, 19, 43, 34, 56, 66, 97, 92, 156, 143, 233, 256, 322, 341, 555, 542, 710, 831, 1098, 1131, 1644, 1660, 2275, 2484, 3035, 3492, 4731, 4848, 6063, 6893, 8943, 9378, 12222, 13025, 16520, 18748, 22048, 24405, 31446, 33698, 41558

Offset: 0

Gus Wiseman, Feb 02 2023

nonn

			The a(1) = 1 through a(8) = 13 partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)        (8)
       (11)  (111)  (22)    (311)    (33)      (331)      (44)
                    (31)    (11111)  (42)      (511)      (53)
                    (1111)           (51)      (3211)     (62)
                                     (222)     (31111)    (71)
                                     (321)     (1111111)  (422)
                                     (3111)               (2222)
                                     (111111)             (3221)
                                                          (3311)
                                                          (5111)
                                                          (32111)
                                                          (311111)
                                                          (11111111)
For example, the partition (32111) has distinct parts {1,2,3} with mean 2, so is counted under a(8).

For parts instead of distinct parts we have A067538, ranked by A316413.
The strict case is A102627.
These partitions are ranked by A326621.
For multiplicities instead of distinct parts: A360069, ranked by A067340.
A000041 counts integer partitions, strict A000009.
A008284 counts partitions by number of parts.
A051293 counts subsets with integer mean, median A000975.
A058398 counts partitions by mean, also A327482.
A116608 counts partitions by number of distinct parts.
A326619/A326620 gives mean of distinct prime indices.
A326622 counts factorizations with integer mean, strict A328966.
A360071 counts partitions by number of parts and number of distinct parts.
The following count partitions:
- A360242 mean(parts) != mean(distinct parts), ranked by A360246.
- A360243 mean(parts) = mean(distinct parts), ranked by A360247.
- A360250 mean(parts) > mean(distinct parts), ranked by A360252.
- A360251 mean(parts) < mean(distinct parts), ranked by A360253.
Cf. A067539, A078174, A082550, A240219, A316313, A325347, A326567/A326568, A326669, A327475, A349156.

Table[Length[Select[IntegerPartitions[n],IntegerQ[Mean[Union[#]]]&]],{n,0,30}]

A360459 Two times the median of the multiset of prime factors of n; a(1) = 2.

Original entry on oeis.org

2, 4, 6, 4, 10, 5, 14, 4, 6, 7, 22, 4, 26, 9, 8, 4, 34, 6, 38, 4, 10, 13, 46, 4, 10, 15, 6, 4, 58, 6, 62, 4, 14, 19, 12, 5, 74, 21, 16, 4, 82, 6, 86, 4, 6, 25, 94, 4, 14, 10, 20, 4, 106, 6, 16, 4, 22, 31, 118, 5, 122, 33, 6, 4, 18, 6, 134, 4, 26, 10, 142, 4, 146

Offset: 1

Gus Wiseman, Feb 14 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). Since the denominator is always 1 or 2, the median can be represented as an integer by multiplying by 2.

			The prime factors of 60 are {2,2,3,5}, with median 5/2, so a(60) = 5.

The union is 2 followed by A014091, complement of A014092.
The prime factors themselves are listed by A027746, distinct A027748.
The version for divisors is A063655.
Positions of odd terms are A072978 (except 1).
For mean instead of twice median: A123528/A123529, distinct A323171/A323172.
Positions of even terms are A359913 (and 1).
The version for prime indices is A360005.
The version for distinct prime indices is A360457.
The version for distinct prime factors is A360458.
The version for prime multiplicities is A360460.
The version for 0-prepended differences is A360555.
A112798 lists prime indices, length A001222, sum A056239.
A325347 counts partitions with integer median, complement A307683.
A326567/A326568 gives mean of prime indices.
A359893 and A359901 count partitions by median, odd-length A359902.
Cf. A000975, A026424, A027336, A078174, A316413, A359907, A359908, A360006, A360007, A360248, A360552.

Table[2*Median[Join@@ConstantArray@@@FactorInteger[n]],{n,100}]

A360458 Two times the median of the set of distinct prime factors of n; a(1) = 2.

Original entry on oeis.org

2, 4, 6, 4, 10, 5, 14, 4, 6, 7, 22, 5, 26, 9, 8, 4, 34, 5, 38, 7, 10, 13, 46, 5, 10, 15, 6, 9, 58, 6, 62, 4, 14, 19, 12, 5, 74, 21, 16, 7, 82, 6, 86, 13, 8, 25, 94, 5, 14, 7, 20, 15, 106, 5, 16, 9, 22, 31, 118, 6, 122, 33, 10, 4, 18, 6, 134, 19, 26, 10, 142, 5

Offset: 1

Gus Wiseman, Feb 14 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). Since the denominator is always 1 or 2, the median can be represented as an integer by multiplying by 2.

			The prime factors of 336 are {2,2,2,2,3,7}, with distinct parts {2,3,7}, with median 3, so a(336) = 6.

The union is 2 followed by A014091, complement of A014092.
Distinct prime factors are listed by A027748.
The version for divisors is A063655.
Positions of odd terms are A100367.
For mean instead of two times median we have A323171/A323172.
The version for prime indices is A360005.
The version for distinct prime indices is A360457.
The version for prime factors is A360459.
The version for prime multiplicities is A360460.
Positions of even terms are A360552.
The version for 0-prepended differences is A360555.
A112798 lists prime indices, length A001222, sum A056239.
A304038 lists distinct prime indices.
A359893 and A359901 count partitions by median, odd-length A359902.
Cf. A000975, A026424, A078174, A316413, A325347, A359907, A360006, A360248, A360453, A360550, A360551.

Table[2*Median[First/@FactorInteger[n]],{n,100}]

A360553 Numbers > 1 whose unordered prime signature has integer median.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, Feb 16 2023

nonn

First differs from A067340 in having 60.
A number's unordered prime signature (row n of A118914) is the multiset of positive exponents in its prime factorization.
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 unordered prime signature of 60 is {1,1,2}, with median 1, so 60 is in the sequence.
The unordered prime signature of 1260 is {1,1,2,2}, with median 3/2, so 1260 is not in the sequence.

For mean instead of median we have A067340, complement A070011.
Positions of even terms in A360460.
The complement is A360554 (without 1).
These partitions are counted by A360687.
- For divisors (A063655) we have A139711, complement A139710.
- For prime indices (A360005) we have A359908, complement A359912.
- For distinct prime indices (A360457) we have A360550, complement A360551.
- For distinct prime factors (A360458) we have A360552, complement A100367.
- For prime factors (A360459) we have A359913, complement A072978.
- For prime multiplicities (A360460) we have A360553, complement A360554.
- For 0-prepended differences (A360555) we have A360556, complement A360557.
A112798 lists prime indices, length A001222, sum A056239.
A124010 lists prime signature.
A325347 = partitions w/ integer median, complement A307683, strict A359907.
A359893 and A359901 count partitions by median, odd-length A359902.
A360454 = numbers whose prime indices and signature have the same median.
Cf. A000975, A026424, A078174, A078175, A316413, A326621, A360453.

Select[Range[2,100],IntegerQ[Median[Last/@FactorInteger[#]]]&]

A360249 Numbers for which the prime indices have the same median as the distinct prime indices.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 13, 14, 15, 16, 17, 19, 21, 22, 23, 25, 26, 27, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 41, 42, 43, 46, 47, 49, 51, 53, 55, 57, 58, 59, 61, 62, 64, 65, 66, 67, 69, 70, 71, 73, 74, 77, 78, 79, 81, 82, 83, 85, 86, 87, 89, 90, 91, 93, 94, 95, 97, 100, 101, 102, 103, 105, 106, 107, 109, 110, 111, 113, 114, 115, 118, 119, 121, 122, 123, 125, 126, 127, 128, 129, 130

Offset: 1

Gus Wiseman, Feb 07 2023

nonn

First differs from A072774 in having 90.
First differs from A242414 in having 180.
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 126 are {1,2,2,4} with median 2 and distinct prime indices {1,2,4} with median 2, so 126 is in the sequence.
The prime indices of 180 are {1,1,2,2,3} with median 2 and distinct prime indices {1,2,3} with median 2, so 180 is in the sequence.

These partitions are counted by A360245.
The complement for mean instead of median is A360246, counted by A360242.
For mean instead of median we have A360247, counted by A360243.
The complement is A360248, counted by A360244.
For multiplicities instead of parts: A360453, counted by A360455.
For multiplicities instead of distinct parts: A360454, counted by A360456.
A112798 lists prime indices, length A001222, sum A056239.
A240219 counts partitions with mean equal to median, ranks A359889.
A326567/A326568 gives mean of prime indices.
A326619/A326620 gives mean of distinct prime indices.
A325347 = partitions with integer median, strict A359907, ranks A359908.
A359893 and A359901 count partitions by median.
A359894 = partitions with mean different from median, ranks A359890.
A360005 gives median of prime indices (times two).
Cf. A000975, A078174, A316413, A324570, A359903, A360252, A360253.

isA360249 := proc(n)
    local ifs,pidx,pe,medAll,medDist ;
    if n = 1 then
        return true ;
    end if ;
    ifs := ifactors(n)[2] ;
    pidx := [] ;
    for pe in ifs do
        numtheory[pi](op(1,pe)) ;
        pidx := [op(pidx),seq(%,i=1..op(2,pe))] ;
    end do:
    medAll := stats[describe,median](sort(pidx)) ;
    pidx := convert(convert(pidx,set),list) ;
    medDist := stats[describe,median](sort(pidx)) ;
    if medAll = medDist then
        true;
    else
        false;
    end if;
end proc:
for n from 1 to 130 do
    if isA360249(n) then
        printf("%d,",n) ;
    end if;
end do: # R. J. Mathar, May 22 2023

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

A360552 Numbers > 1 whose distinct prime factors have integer median.

Original entry on oeis.org

2, 3, 4, 5, 7, 8, 9, 11, 13, 15, 16, 17, 19, 21, 23, 25, 27, 29, 30, 31, 32, 33, 35, 37, 39, 41, 42, 43, 45, 47, 49, 51, 53, 55, 57, 59, 60, 61, 63, 64, 65, 66, 67, 69, 70, 71, 73, 75, 77, 78, 79, 81, 83, 84, 85, 87, 89, 90, 91, 93, 95, 97, 99, 101, 102, 103

Offset: 1

Gus Wiseman, Feb 16 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 prime factors of 900 are {2,2,3,3,5,5}, with distinct parts {2,3,5}, with median 3, so 900 is in the sequence.

For mean instead of median we have A078174, complement of A176587.
The complement is A100367 (without 1).
Positions of even terms in A360458.
- For divisors (A063655) we have A139711, complement A139710.
- For prime indices (A360005) we have A359908, complement A359912.
- For distinct prime indices (A360457) we have A360550, complement A360551.
- For distinct prime factors (A360458) we have A360552, complement A100367.
- For prime factors (A360459) we have A359913, complement A072978.
- For prime multiplicities (A360460) we have A360553, complement A360554.
- For 0-prepended differences (A360555) we have A360556, complement A360557.
A027746 lists prime factors, length A001222, indices A112798.
A027748 lists distinct prime factors, length A001221, indices A304038.
A323171/A323172 = mean of distinct prime factors, indices A326619/A326620.
A325347 = partitions w/ integer median, complement A307683, strict A359907.
A359893 and A359901 count partitions by median, odd-length A359902.
Cf. A000975, A026424, A056239, A078175, A175352, A316413, A326621, A360009.

Select[Range[2,100],IntegerQ[Median[First/@FactorInteger[#]]]&]

A271654 a(n) = Sum_{k|n} binomial(n-1,k-1).

Original entry on oeis.org

1, 2, 2, 5, 2, 17, 2, 44, 30, 137, 2, 695, 2, 1731, 1094, 6907, 2, 30653, 2, 97244, 38952, 352739, 2, 1632933, 10628, 5200327, 1562602, 20357264, 2, 87716708, 2, 303174298, 64512738, 1166803145, 1391282, 4978661179, 2, 17672631939, 2707475853, 69150651910, 2, 286754260229, 2, 1053966829029, 115133177854, 4116715363847, 2, 16892899722499, 12271514, 63207357886437

Offset: 1

Franklin T. Adams-Watters, Apr 11 2016

nonn

Also the number of compositions of n whose length divides n, i.e., compositions with integer mean, ranked by A096199. - Gus Wiseman, Sep 28 2022

			From _Gus Wiseman_, Sep 28 2022: (Start)
The a(1) = 1 through a(6) = 17 compositions with integer mean:
  (1)  (2)    (3)      (4)        (5)          (6)
       (1,1)  (1,1,1)  (1,3)      (1,1,1,1,1)  (1,5)
                       (2,2)                   (2,4)
                       (3,1)                   (3,3)
                       (1,1,1,1)               (4,2)
                                               (5,1)
                                               (1,1,4)
                                               (1,2,3)
                                               (1,3,2)
                                               (1,4,1)
                                               (2,1,3)
                                               (2,2,2)
                                               (2,3,1)
                                               (3,1,2)
                                               (3,2,1)
                                               (4,1,1)
                                               (1,1,1,1,1,1)
(End)

Alois P. Heinz, Table of n, a(n) for n = 1..3329

Cf. A056045.
The version for nonempty subsets is A051293, geometric A326027.
The version for partitions is A067538, ranked by A316413, strict A102627.
These compositions are ranked by A096199.
The version for factorizations is A326622, geometric A326028.
A011782 counts compositions.
A067539 = partitions w integer geo mean, ranked by A326623, strict A326625.
A100346 counts compositions into divisors, partitions A018818.
Cf. A000041, A078174, A078175, A326567/A326568, A326624, A326641, A326836, A326837, A326843.

a:= n-> add(binomial(n-1, d-1), d=numtheory[divisors](n)):
seq(a(n), n=1..50);  # Alois P. Heinz, Dec 03 2023

Table[Length[Join @@ Permutations/@Select[IntegerPartitions[n],IntegerQ[Mean[#]]&]],{n,15}] (* Gus Wiseman, Sep 28 2022 *)

PARI
```
a(n)=sumdiv(n,k,binomial(n-1,k-1))
```

cp's OEIS Frontend

A360248 Numbers for which the prime indices do not have the same median as the distinct prime indices.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A326625 Number of strict integer partitions of n whose geometric mean is an integer.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

A123529 Denominator of average of prime factors of n.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

A360241 Number of integer partitions of n whose distinct parts have integer mean.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

A360459 Two times the median of the multiset of prime factors of n; a(1) = 2.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A360458 Two times the median of the set of distinct prime factors of n; a(1) = 2.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A360553 Numbers > 1 whose unordered prime signature has integer median.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A360249 Numbers for which the prime indices have the same median as the distinct prime indices.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Maple

Mathematica

A360552 Numbers > 1 whose distinct prime factors have integer median.

Views

Author

Keywords

Comments

Examples

Crossrefs