A326515 -id:A326515 - cp's OEIS frontend

A326622 Number of factorizations of n into factors > 1 with integer average.

0, 1, 1, 2, 1, 1, 1, 3, 2, 1, 1, 2, 1, 1, 2, 4, 1, 1, 1, 3, 2, 1, 1, 4, 2, 1, 3, 2, 1, 1, 1, 5, 2, 1, 2, 3, 1, 1, 2, 3, 1, 2, 1, 3, 3, 1, 1, 6, 2, 2, 2, 2, 1, 2, 2, 4, 2, 1, 1, 6, 1, 1, 3, 7, 2, 1, 1, 3, 2, 1, 1, 6, 1, 1, 3, 2, 2, 2, 1, 7, 5, 1, 1, 4, 2, 1, 2, 3, 1, 1, 2, 3, 2, 1, 2, 8, 1, 1, 3, 3, 1, 1, 1, 4, 5, 1, 1, 6

Offset: 1

Gus Wiseman, Jul 14 2019

nonn

			The a(80) = 7 factorizations:
  (2*2*2*10)
  (2*2*20)
  (2*5*8)
  (2*40)
  (4*20)
  (8*10)
  (80)

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

Partitions with integer average are A067538.
Strict partitions with integer average are A102627.
Heinz numbers of partitions with integer average are A316413.
Factorizations with integer geometric mean are A326028.
Cf. A001055, A051293, A078174, A078175, A326514, A326515, A326567/A326568, A326621, A326623, A326667 (= a(2^n)), A327906 (positions of 1's), A327907 (of terms > 1).

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],IntegerQ[Mean[#]]&]],{n,2,100}]

A326622(n, m=n, facsum=0, facnum=0) = if(1==n,facnum > 0 && 1==denominator(facsum/facnum), my(s=0); fordiv(n, d, if((d>1)&&(d<=m), s += A326622(n/d, d, facsum+d, facnum+1))); (s)); \\ Antti Karttunen, Nov 10 2024

Data section extended up to a(108), with missing term a(1)=0 also added (thus correcting the offset) - Antti Karttunen, Nov 10 2024

A321455 Number of ways to factor n into factors > 1 all having the same sum of prime indices.

Original entry on oeis.org

1, 1, 1, 2, 1, 1, 1, 2, 2, 1, 1, 2, 1, 1, 1, 3, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 1, 1, 3, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 3, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 4, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 3

Offset: 1

Gus Wiseman, Nov 10 2018

nonn

Also the number of multiset partitions of the multiset of prime indices of n with equal block-sums.

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 sum of prime indices of n is A056239(n).

			The a(1440) = 6 factorizations into factors all having the same sum of prime indices:
  (10*12*12)
  (5*6*6*8)
  (9*10*16)
  (30*48)
  (36*40)
  (1440)
The a(900) = 5 multiset partitions with equal block-sums:
  {{1,1,2,2,3,3}}
  {{3,3},{1,1,2,2}}
  {{1,2,3},{1,2,3}}
  {{1,3},{1,3},{2,2}}
  {{3},{3},{1,2},{1,2}}

Positions of 1's are A321453. Positions of terms > 1 are A321454.

Cf. A001055, A035470, A056239, A279787, A305551, A321469, A322794, A326515, A326516, A326518, A326534.

hwt[n_]:=Total[Cases[FactorInteger[n],{p_,k_}:>PrimePi[p]*k]];
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],SameQ@@hwt/@#&]],{n,100}]

A056239(n) = if(1==n, 0, my(f=factor(n)); sum(i=1, #f~, f[i, 2] * primepi(f[i, 1])));
all_have_same_sum_of_pis(facs) = if(!#facs, 1, (#Set(apply(A056239,facs)) == 1));
A321455(n, m=n, facs=List([])) = if(1==n, all_have_same_sum_of_pis(facs), my(s=0, newfacs); fordiv(n, d, if((d>1)&&(d<=m), newfacs = List(facs); listput(newfacs,d); s += A321455(n/d, d, newfacs))); (s)); \\ Antti Karttunen, Jan 20 2025

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

A321469 Number of factorizations of n into factors > 1 with different sums of prime indices. Number of multiset partitions of the multiset of prime indices of n with distinct block-sums.

Original entry on oeis.org

1, 1, 1, 1, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 2, 2, 1, 3, 1, 3, 2, 2, 1, 4, 1, 2, 2, 3, 1, 4, 1, 3, 2, 2, 2, 5, 1, 2, 2, 4, 1, 5, 1, 3, 3, 2, 1, 6, 1, 3, 2, 3, 1, 5, 2, 5, 2, 2, 1, 7, 1, 2, 2, 4, 2, 5, 1, 3, 2, 4, 1, 8, 1, 2, 3, 3, 2, 5, 1, 6, 2, 2, 1, 7, 2, 2, 2, 5, 1, 7, 2, 3, 2, 2, 2, 8, 1, 3, 3, 5, 1, 5, 1, 5, 5

Offset: 1

Gus Wiseman, Nov 11 2018

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 sum of prime indices of n is A056239(n).

			The a(72) = 8 multiset partitions with distinct block-sums:
    {{1,1,1,2,2}}
   {{1},{1,1,2,2}}
   {{2},{1,1,1,2}}
   {{1,1},{1,2,2}}
   {{1,2},{1,1,2}}
   {{2,2},{1,1,1}}
  {{1},{2},{1,1,2}}
  {{1},{1,1},{2,2}}
Missing from this list are:
    {{1},{1},{1,2,2}}
    {{1},{1,2},{1,2}}
    {{2},{2},{1,1,1}}
    {{2},{1,1},{1,2}}
   {{1},{1},{1},{2,2}}
   {{1},{1},{2},{1,2}}
   {{1},{2},{2},{1,1}}
  {{1},{1},{1},{2},{2}}

Cf. A001055, A056239, A275780, A317144, A321455, A322794, A326514, A326515, A326516, A326519, A326535, A371734.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
sps[{}]:={{}};sps[set:{i_,_}]:=Join@@Function[s,Prepend[#,s]&/@sps[Complement[set,s]]]/@Cases[Subsets[set],{i,_}];
mps[set_]:=Union[Sort[Sort/@(#/.x_Integer:>set[[x]])]&/@sps[Range[Length[set]]]];
Table[Length[Select[mps[primeMS[n]],UnsameQ@@Sort[Total/@#]&]],{n,100}]

A056239(n) = if(1==n, 0, my(f=factor(n)); sum(i=1, #f~, f[i, 2] * primepi(f[i, 1])));
all_have_different_sum_of_pis(facs) = if(!#facs, 1, (#Set(apply(A056239,facs)) == #facs));
A321469(n, m=n, facs=List([])) = if(1==n, all_have_different_sum_of_pis(facs), my(s=0, newfacs); fordiv(n, d, if((d>1)&&(d<=m), newfacs = List(facs); listput(newfacs,d); s += A321469(n/d, d, newfacs))); (s)); \\ Antti Karttunen, Jan 20 2025

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

A328966 Number of strict factorizations of n with integer average.

Original entry on oeis.org

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

Offset: 2

Gus Wiseman, Nov 16 2019

nonn

			The a(n) factorizations for n = 2, 8, 24, 48, 96:
  (2)  (8)    (24)     (32)    (48)     (96)
       (2*4)  (4*6)    (4*8)   (6*8)    (2*48)
              (2*12)   (2*16)  (2*24)   (4*24)
              (2*3*4)          (4*12)   (6*16)
                               (2*4*6)  (8*12)
                                        (3*4*8)
                                        (2*3*16)
                                        (2*4*12)

The non-strict version is A326622.
Partitions with integer average are A067538.
Strict partitions with integer average are A102627.
Heinz numbers of partitions with integer average are A316413.
Factorizations with integer geometric mean are A326028.
Cf. A001055, A051293, A078174, A078175, A326515, A326567/A326568, A326619/A326620, A326621, A326625.

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],UnsameQ@@#&&IntegerQ[Mean[#]]&]],{n,2,100}]

A326028 Number of factorizations of n into factors > 1 with integer geometric mean.

Original entry on oeis.org

0, 1, 1, 2, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 4, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 1, 1, 1, 1, 2, 1, 1, 1, 5, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 8, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 4, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 5, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2

Offset: 1

Gus Wiseman, Jul 15 2019

nonn

First differs from A294336 and A316782 at a(36) = 5.

			The a(4) = 2 through a(36) = 5 factorizations (showing only the cases where n is a perfect power).
  (4)    (8)      (9)    (16)       (25)   (27)     (32)         (36)
  (2*2)  (2*2*2)  (3*3)  (2*8)      (5*5)  (3*3*3)  (2*2*2*2*2)  (4*9)
                         (4*4)                                   (6*6)
                         (2*2*2*2)                               (2*18)
                                                                 (3*12)

Antti Karttunen, Table of n, a(n) for n = 1..100000
Wikipedia, Geometric mean
Index entries for sequences computed from exponents in factorization of n

Positions of terms > 1 are the perfect powers A001597.
Partitions with integer geometric mean are A067539.
Subsets with integer geometric mean are A326027.
Factorizations with integer average and geometric mean are A326647.
Cf. A001055, A082553, A322794, A326514, A326515, A326516, A326622, A326623, A326624, A326625.

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],IntegerQ[GeometricMean[#]]&]],{n,2,100}]

A326028(n, m=n, facmul=1, facnum=0) = if(1==n,facnum>0 && ispower(facmul,facnum), my(s=0); fordiv(n, d, if((d>1)&&(d<=m), s += A326028(n/d, d, facmul*d, facnum+1))); (s)); \\ Antti Karttunen, Nov 10 2024

a(2^n) = A067538(n).

a(89) onwards from Antti Karttunen, Nov 10 2024

A322794 Number of factorizations of n into factors > 1 where all factors have the same number of prime factors counted with multiplicity.

Original entry on oeis.org

1, 1, 1, 2, 1, 2, 1, 2, 2, 2, 1, 2, 1, 2, 2, 3, 1, 2, 1, 2, 2, 2, 1, 3, 2, 2, 2, 2, 1, 2, 1, 2, 2, 2, 2, 4, 1, 2, 2, 3, 1, 2, 1, 2, 2, 2, 1, 2, 2, 2, 2, 2, 1, 3, 2, 3, 2, 2, 1, 4, 1, 2, 2, 4, 2, 2, 1, 2, 2, 2, 1, 2, 1, 2, 2, 2, 2, 2, 1, 2, 3, 2, 1, 4, 2, 2, 2

Offset: 1

Gus Wiseman, Dec 26 2018

nonn

Also the number of uniform multiset partitions of the multiset of prime indices of n, where a multiset partition is uniform if all parts have the same size.

			The a(1260) = 13 factorizations:
  (1260)  (18*70)   (4*9*35)   (2*2*3*3*5*7)
          (20*63)   (6*6*35)
          (28*45)   (4*15*21)
          (30*42)   (6*10*21)
          (12*105)  (6*14*15)
                    (9*10*14)
The a(1260) = 13 multiset partitions:
  {{1},{1},{2},{2},{3},{4}}
     {{1,1},{2,2},{3,4}}
     {{1,1},{2,3},{2,4}}
     {{1,2},{1,2},{3,4}}
     {{1,2},{1,3},{2,4}}
     {{1,2},{1,4},{2,3}}
     {{2,2},{1,3},{1,4}}
      {{1,1,2},{2,3,4}}
      {{1,2,2},{1,3,4}}
      {{1,1,3},{2,2,4}}
      {{1,1,4},{2,2,3}}
      {{1,2,3},{1,2,4}}
       {{1,1,2,2,3,4}}

Gus Wiseman, Sequences counting and ranking multiset partitions whose part lengths, sums, or averages are constant or strict.

Cf. A001055, A001222, A038041, A112798, A306017, A306021, A319169, A320324, A317583, A321455, A321469, A326514, A326515, A326516.

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],SameQ@@PrimeOmega/@#&]],{n,100}]

A326512 Number of set partitions of {1..n} where every block has the same average.

Original entry on oeis.org

1, 1, 1, 2, 2, 5, 5, 18, 16, 75, 64, 405, 302, 2581, 1693, 19872, 11295, 175807, 87524, 1851135, 787515, 21909766, 8185713, 298698113, 96514608, 4538610230, 1285072142

Offset: 0

Gus Wiseman, Jul 11 2019

The common average is necessarily (n+1)/2. The number of blocks with this average is given by A070925. - Christian Sievers, Aug 22 2024

			The a(1) = 1 through a(7) = 18 set partitions:
  {1}  {12}  {123}    {1234}    {12345}      {123456}      {1234567}
             {13}{2}  {14}{23}  {1245}{3}    {1256}{34}    {123567}{4}
                                {135}{24}    {1346}{25}    {12467}{35}
                                {15}{234}    {16}{2345}    {1267}{345}
                                {15}{24}{3}  {16}{25}{34}  {13457}{26}
                                                           {1357}{246}
                                                           {1456}{237}
                                                           {147}{2356}
                                                           {156}{2347}
                                                           {17}{23456}
                                                           {1267}{35}{4}
                                                           {1357}{26}{4}
                                                           {147}{26}{35}
                                                           {156}{237}{4}
                                                           {17}{2356}{4}
                                                           {17}{246}{35}
                                                           {17}{26}{345}
                                                           {17}{26}{35}{4}

Gus Wiseman, Sequences counting and ranking multiset partitions whose part lengths, sums, or averages are constant or strict.

Cf. A000110, A007837, A035470, A038041, A070925, A275780, A306017, A306021, A319169, A326513, A326515, A326520, A326536.

sps[{}]:={{}};sps[set:{i_,_}]:=Join@@Function[s,Prepend[#,s]&/@sps[Complement[set,s]]]/@Cases[Subsets[set],{i,_}];
Table[Length[Select[sps[Range[n]],SameQ@@Mean/@#&]],{n,0,8}]

a(12)-a(15) from Alois P. Heinz, Jul 12 2019

a(16)-a(26) from Christian Sievers, Aug 22 2024

A326516 Number of factorizations of n into factors > 1 where each factor has a different average of prime indices.

Original entry on oeis.org

1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 3, 1, 2, 2, 1, 1, 3, 1, 3, 2, 2, 1, 4, 1, 2, 1, 3, 1, 4, 1, 1, 2, 2, 2, 5, 1, 2, 2, 4, 1, 5, 1, 3, 3, 2, 1, 5, 1, 3, 2, 3, 1, 4, 2, 4, 2, 2, 1, 8, 1, 2, 3, 1, 2, 5, 1, 3, 2, 5, 1, 8, 1, 2, 3, 3, 2, 5, 1, 5, 1, 2, 1, 8, 2, 2, 2, 4, 1, 7, 2, 3, 2, 2, 2, 6, 1, 3, 3, 5, 1, 5, 1, 4, 4

Offset: 1

Gus Wiseman, Jul 12 2019

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 a(60) = 8 factorizations: (2*5*6), (3*4*5), (2*30), (3*20), (4*15), (5*12), (6*10), (60).

Cf. A001055, A038041, A051293, A321455, A321469, A322794, A326513, A326514, A326515, A326521, A326537.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
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],UnsameQ@@Mean/@primeMS/@#&]],{n,100}]

avgpis(n) = { my(f=factor(n)); f[,1] = apply(primepi,f[,1]); (1/bigomega(n))*sum(i=1,#f~,f[i,2]*f[i,1]); };
all_have_different_average_of_pis(facs) = if(!#facs, 1, (#Set(apply(avgpis,facs)) == #facs));
A326516(n, m=n, facs=List([])) = if(1==n, all_have_different_average_of_pis(facs), my(s=0, newfacs); fordiv(n, d, if((d>1)&&(d<=m), newfacs = List(facs); listput(newfacs,d); s += A326516(n/d, d, newfacs))); (s)); \\ Antti Karttunen, Jan 20 2025

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

A326647 Number of factorizations of n into factors > 1 with integer average and integer geometric mean.

Original entry on oeis.org

0, 1, 1, 2, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 4, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 1, 1, 1, 1, 2, 1, 1, 1, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 6, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 4, 1, 1, 1, 1, 1, 1, 1

Offset: 1

Gus Wiseman, Jul 16 2019

nonn

			The a(216) = 5 factorizations:
  (2*4*27)
  (3*3*24)
  (3*6*12)
  (6*6*6)
  (216)
The a(729) = 8 factorizations:
  (3*3*3*3*3*3)
  (3*3*81)
  (3*9*27)
  (3*243)
  (9*9*9)
  (9*81)
  (27*27)
  (729)

Wikipedia, Geometric mean

Positions of terms > 1 are the perfect powers A001597.
Factorizations with integer average are A326622.
Factorizations with integer geometric mean are A326028.
Partitions with integer average and geometric mean are A326641.
Cf. A001055, A067538, A067539, A322794, A326514, A326515, A326516, A326623, A326643, A326645.

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],IntegerQ[Mean[#]]&&IntegerQ[GeometricMean[#]]&]],{n,2,100}]

A326514 Number of factorizations of n into factors > 1 where each factor has a different number of prime factors counted with multiplicity.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, Jul 11 2019

nonn

			The a(96) = 8 factorizations: (2*4*12), (2*6*8), (2*48), (3*4*8), (3*32), (4*24), (6*16), (96).

Gus Wiseman, Sequences counting and ranking multiset partitions whose part lengths, sums, or averages are constant or strict.

Cf. A001055, A007837, A038041, A321455, A321469, A322794, A326026, A326515, A326516, A326517, A326533.

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],UnsameQ@@PrimeOmega/@#&]],{n,100}]

cp's OEIS Frontend

A326622 Number of factorizations of n into factors > 1 with integer average.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

A321455 Number of ways to factor n into factors > 1 all having the same sum of prime indices.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

A321469 Number of factorizations of n into factors > 1 with different sums of prime indices. Number of multiset partitions of the multiset of prime indices of n with distinct block-sums.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

A328966 Number of strict factorizations of n with integer average.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

A326028 Number of factorizations of n into factors > 1 with integer geometric mean.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A322794 Number of factorizations of n into factors > 1 where all factors have the same number of prime factors counted with multiplicity.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A326512 Number of set partitions of {1..n} where every block has the same average.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Extensions

A326516 Number of factorizations of n into factors > 1 where each factor has a different average of prime indices.

Views