A319169 -id:A319169 - cp's OEIS frontend

A320322 Number of integer partitions of n whose product is a perfect power.

1, 0, 0, 0, 2, 2, 5, 5, 9, 11, 18, 19, 28, 30, 42, 50, 68, 76, 102, 113, 146, 170, 212, 241, 312, 356, 441, 514, 628, 720, 887, 1008, 1215, 1403, 1660, 1903, 2291, 2609, 3107, 3594, 4254, 4864, 5739, 6546, 7672, 8811, 10237, 11651, 13583, 15420, 17867, 20382

Offset: 0

Gus Wiseman, Oct 10 2018

nonn

			The a(4) = 2 through a(11) = 19 integer partitions:
  4   41   33    331    8       9        55        551
  22  221  42    421    44      81       82        632
           222   2221   422     333      91        821
           411   4111   2222    441      433       911
           2211  22111  3311    4221     442       4331
                        4211    22221    811       4421
                        22211   33111    3322      8111
                        41111   42111    3331      33221
                        221111  222111   4222      33311
                                411111   4411      42221
                                2211111  22222     44111
                                         42211     222221
                                         222211    422111
                                         331111    2222111
                                         421111    3311111
                                         2221111   4211111
                                         4111111   22211111
                                         22111111  41111111
                                                   221111111

Cf. A003963, A064573, A305551, A319056, A319066, A319071, A319169, A320325.

Table[Length[Select[IntegerPartitions[n],GCD@@FactorInteger[Times@@#][[All,2]]>1&]],{n,30}]

A320324 Numbers of which each prime index has the same number of prime factors, counted with multiplicity.

Original entry on oeis.org

1, 2, 3, 4, 5, 7, 8, 9, 11, 13, 15, 16, 17, 19, 23, 25, 27, 29, 31, 32, 33, 37, 41, 43, 45, 47, 49, 51, 53, 55, 59, 61, 64, 67, 71, 73, 75, 79, 81, 83, 85, 89, 91, 93, 97, 99, 101, 103, 107, 109, 113, 121, 123, 125, 127, 128, 131, 135, 137, 139, 149, 151, 153

Offset: 1

Gus Wiseman, Oct 10 2018

nonn

A prime index of n is a number m such that prime(m) divides n.

			The terms together with their corresponding multiset multisystems (A302242):
   1: {}
   2: {{}}
   3: {{1}}
   4: {{},{}}
   5: {{2}}
   7: {{1,1}}
   8: {{},{},{}}
   9: {{1},{1}}
  11: {{3}}
  13: {{1,2}}
  15: {{1},{2}}
  16: {{},{},{},{}}
  17: {{4}}
  19: {{1,1,1}}
  23: {{2,2}}
  25: {{2},{2}}
  27: {{1},{1},{1}}
  29: {{1,3}}
  31: {{5}}
  32: {{},{},{},{},{}}
  33: {{1},{3}}
  37: {{1,1,2}}
  41: {{6}}
  43: {{1,4}}
  45: {{1},{1},{2}}
  47: {{2,3}}
  49: {{1,1},{1,1}}

Amiram Eldar, Table of n, a(n) for n = 1..10000
Gus Wiseman, Sequences counting and ranking multiset partitions whose part lengths, sums, or averages are constant or strict.

Cf. A001222, A038041, A112798, A302242, A306017, A317583, A319066, A319169, A320325, A322794, A326533, A326534, A326535, A326536, A326537.

Select[Range[100],SameQ@@PrimeOmega/@PrimePi/@First/@FactorInteger[#]&]

is(n) = #Set(apply(p -> bigomega(primepi(p)), factor(n)[,1]~))<=1 \\ Rémy Sigrist, Oct 11 2018

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

A100778 Integer powers of primorial numbers.

Original entry on oeis.org

1, 2, 4, 6, 8, 16, 30, 32, 36, 64, 128, 210, 216, 256, 512, 900, 1024, 1296, 2048, 2310, 4096, 7776, 8192, 16384, 27000, 30030, 32768, 44100, 46656, 65536, 131072, 262144, 279936, 510510, 524288, 810000, 1048576, 1679616, 2097152, 4194304, 5336100

Offset: 1

Amarnath Murthy, Nov 28 2004

Smallest squarefree numbers or their powers with distinct prime signatures. Or least numbers with prime signatures (p*q*r*...)^k, where p,q,r,... are primes and k is a whole number.
Also Heinz numbers of uniform integer partitions whose union is an initial interval of positive integers. An integer partition is uniform if all parts appear with the same multiplicity. The Heinz number of an integer partition (y_1, ..., y_k) is prime(y_1) * ... * prime(y_k). The sequence of all uniform integer partitions whose Heinz numbers belong to the sequence begins: (1), (11), (12), (111), (1111), (123), (11111), (1122), (111111), (1111111), (1234), (111222), (11111111), (111111111), (112233), (1111111111). - Gus Wiseman, Dec 26 2018
From Amiram Eldar, Sep 26 2023: (Start)
Intersection of A025487 and A072774.
The distinct terms of A046523(A072774(n)) in ascending orders.
The k-th power of the n-th primorial number, A002110(n)^k, has (k+1)^n divisors which are the set of the (k+1)-free prime(n)-smooth numbers. (End)

			10 is not a term as 6 is a member with the same prime signature 10 > 6.
216 is a term as 216 = (2*3)^3. 243 is not a term as 32 represents that prime signature.

David A. Corneth, Table of n, a(n) for n = 1..8606 (terms <= 10^1000)

Cf. A000961, A001597, A002110, A007947, A025487, A046523, A055932, A056239, A057588, A072774, A072777, A112798, A304250, A319169, A322792, A322793.

unintQ[n_]:=And[SameQ@@Last/@FactorInteger[n],Length[FactorInteger[n]]==PrimePi[FactorInteger[n][[-1,1]]]];
Select[Range[1000],unintQ] (* Gus Wiseman, Dec 26 2018 *)

Sum_{n>=1} 1/a(n) = 1 + Sum_{n>=1} 1/A057588(n) = 2.2397359032... - Amiram Eldar, Oct 20 2020; corrected by Hal M. Switkay and Amiram Eldar, Apr 12 2021

More terms and simpler definition from Ray Chandler, Nov 29 2004

A358901 Number of integer partitions of n whose parts have all different numbers of prime factors (A001222).

Original entry on oeis.org

1, 1, 1, 2, 2, 2, 3, 4, 4, 5, 5, 7, 9, 8, 9, 11, 11, 15, 16, 16, 18, 20, 22, 26, 28, 31, 32, 36, 40, 45, 46, 46, 50, 59, 64, 70, 75, 78, 83, 89, 94, 108, 106, 104, 120, 137, 142, 147, 150, 161, 174, 190, 200, 220, 226, 224, 248, 274, 274, 287, 301, 320, 340, 351, 361

Offset: 0

Gus Wiseman, Dec 07 2022

nonn

			The a(1) = 1 through a(11) = 7 partitions:
  (1)  (2)  (3)   (4)   (5)   (6)   (7)    (8)    (9)    (A)    (B)
            (21)  (31)  (41)  (42)  (43)   (62)   (54)   (82)   (74)
                              (51)  (61)   (71)   (63)   (91)   (65)
                                    (421)  (431)  (81)   (451)  (83)
                                                  (621)  (631)  (92)
                                                                (A1)
                                                                (821)

Alois P. Heinz, Table of n, a(n) for n = 0..5000 (first 101 terms from Lucas A. Brown)
Lucas A. Brown, Python program.

The weakly decreasing version is A358909 (complement A358910).
The version not counting multiplicity is A358903, weakly decreasing A358902.
For equal numbers of prime factors we have A319169, compositions A358911.
A001222 counts prime factors, distinct A001221.
A063834 counts twice-partitions.
A358836 counts multiset partitions with all distinct block sizes.
Cf. A056239, A129519, A141199, A218482, A300335, A319071, A320324, A358335, A358831, A358908.

Table[Length[Select[IntegerPartitions[n],UnsameQ@@PrimeOmega/@#&]],{n,0,60}]

a(61) and beyond from Lucas A. Brown, Dec 14 2022

A358905 Number of sequences of integer partitions with total sum n that are rectangular, meaning all lengths are equal.

Original entry on oeis.org

1, 1, 3, 6, 13, 24, 49, 91, 179, 341, 664, 1280, 2503, 4872, 9557, 18750, 36927, 72800, 143880, 284660, 564093, 1118911, 2221834, 4415417, 8781591, 17476099, 34799199, 69327512, 138176461, 275503854, 549502119, 1096327380, 2187894634, 4367310138, 8719509111

Offset: 0

Gus Wiseman, Dec 07 2022

nonn

			The a(0) = 1 through a(4) = 13 sequences:
  ()  ((1))  ((2))     ((3))        ((4))
             ((11))    ((21))       ((22))
             ((1)(1))  ((111))      ((31))
                       ((1)(2))     ((211))
                       ((2)(1))     ((1111))
                       ((1)(1)(1))  ((1)(3))
                                    ((2)(2))
                                    ((3)(1))
                                    ((11)(11))
                                    ((1)(1)(2))
                                    ((1)(2)(1))
                                    ((2)(1)(1))
                                    ((1)(1)(1)(1))

Andrew Howroyd, Table of n, a(n) for n = 0..1000

The case of set partitions is A038041.
The version for weakly decreasing lengths is A141199, strictly A358836.
For equal sums instead of lengths we have A279787.
The case of twice-partitions is A306319, distinct A358830.
The unordered version is A319066.
The case of plane partitions is A323429.
The case of constant sums also is A358833.
A055887 counts sequences of partitions with total sum n.
A281145 counts same-trees.
A319169 counts partitions with constant Omega, ranked by A320324.
A358911 counts compositions with constant Omega, distinct A358912.
Cf. A000041, A000219, A001970, A063834, A218482, A305551, A358835.

ptnseq[n_]:=Join@@Table[Tuples[IntegerPartitions/@comp],{comp,Join@@Permutations/@IntegerPartitions[n]}];
Table[Length[Select[ptnseq[n],SameQ@@Length/@#&]],{n,0,10}]

P(n,y) = {1/prod(k=1, n, 1 - y*x^k + O(x*x^n))}
seq(n) = {my(g=P(n,y)); Vec(1 + sum(k=1, n, 1/(1 - polcoef(g, k, y)) - 1))} \\ Andrew Howroyd, Dec 31 2022

G.f.: 1 + Sum_{k>=1} (1/(1 - [y^k]P(x,y)) - 1) where P(x,y) = 1/Product_{k>=1} (1 - y*x^k). - Andrew Howroyd, Dec 31 2022

Terms a(16) and beyond from Andrew Howroyd, Dec 31 2022

A358911 Number of integer compositions of n whose parts all have the same number of prime factors, counted with multiplicity.

Original entry on oeis.org

1, 1, 2, 2, 3, 4, 4, 7, 9, 12, 20, 21, 39, 49, 79, 109, 161, 236, 345, 512, 752, 1092, 1628, 2376, 3537, 5171, 7650, 11266, 16634, 24537, 36173, 53377, 78791, 116224, 171598, 253109, 373715, 551434, 814066, 1201466, 1773425, 2617744, 3864050, 5703840, 8419699

Offset: 0

Gus Wiseman, Dec 11 2022

nonn

			The a(1) = 1 through a(8) = 9 compositions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)        (8)
       (11)  (111)  (22)    (23)     (33)      (25)       (35)
                    (1111)  (32)     (222)     (52)       (44)
                            (11111)  (111111)  (223)      (53)
                                               (232)      (233)
                                               (322)      (323)
                                               (1111111)  (332)
                                                          (2222)
                                                          (11111111)

Alois P. Heinz, Table of n, a(n) for n = 0..4000 (first 101 terms from Lucas A. Brown)
Lucas A. Brown, Python program.

The case of partitions is A319169, ranked by A320324.
The weakly decreasing version is A358335, strictly A358901.
For sequences of partitions see A358905.
A001222 counts prime factors, distinct A001221.
A011782 counts compositions.
A358902 = compositions with weakly decreasing A001221, strictly A358903.
A358909 = partitions with weakly decreasing A001222, complement A358910.
Cf. A056239, A063834, A064573, A218482, A279787, A300335, A319066, A319071, A358831, A358908.

b:= proc(n, i) option remember; uses numtheory; `if`(n=0, 1, add(
     (t-> `if`(i<0 or i=t, b(n-j, t), 0))(bigomega(j)), j=1..n))
    end:
a:= n-> b(n, -1):
seq(a(n), n=0..44);  # Alois P. Heinz, Feb 12 2024

Table[Length[Select[Join @@ Permutations/@IntegerPartitions[n],SameQ@@PrimeOmega/@#&]],{n,0,10}]

a(21) and beyond from Lucas A. Brown, Dec 15 2022

A319071 Number of integer partitions of n whose product of parts is a perfect power and whose parts all have the same number of prime factors, counted with multiplicity.

Original entry on oeis.org

1, 0, 0, 0, 2, 0, 2, 0, 3, 2, 3, 0, 4, 1, 4, 3, 7, 1, 7, 1, 8, 6, 8, 0, 15, 5, 12, 6, 15, 4, 22, 4, 24, 12, 22, 8, 35, 7, 30, 16, 42, 9, 50, 9, 50, 30, 53, 7, 79, 22, 72, 33, 87, 21, 109, 26, 111, 55, 117, 24, 168, 40, 149, 65, 178, 59

Offset: 0

Gus Wiseman, Oct 10 2018

nonn

The positions of zeros appear to be A048278.

			The a(4) = 2 through a(16) = 7 integer partitions (G = 16):
  4   33   8     9    55     66      94  77       555     G
  22  222  44    333  3322   444         5522     33333   88
           2222       22222  3333        332222   333222  664
                             222222      2222222          4444
                                                          5533
                                                          333322
                                                          22222222

Cf. A003963, A048278, A064573, A279787, A305551, A319056, A319066, A319169, A320322, A320323.

Table[Length[Select[IntegerPartitions[n],And[GCD@@FactorInteger[Times@@#][[All,2]]>1,SameQ@@PrimeOmega/@#]&]],{n,30}]

A322527 Number of integer partitions of n whose product of parts is a power of a squarefree number (A072774).

Original entry on oeis.org

1, 1, 2, 3, 5, 7, 11, 13, 18, 21, 31, 34, 45, 51, 63, 72, 88, 97, 120, 128, 158, 174, 201, 222, 264, 287, 333, 359, 416, 441, 518, 557, 631, 684, 770, 833, 954, 1017, 1141, 1222, 1378, 1475, 1643, 1755, 1939, 2097, 2327, 2471, 2758, 2928, 3233, 3470, 3813, 4085

Offset: 0

Gus Wiseman, Dec 14 2018

nonn

			The a(1) = 1 through a(8) = 18 integer partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)        (8)
       (11)  (21)   (22)    (32)     (33)      (52)       (44)
             (111)  (31)    (41)     (42)      (61)       (53)
                    (211)   (221)    (51)      (331)      (71)
                    (1111)  (311)    (222)     (421)      (422)
                            (2111)   (321)     (511)      (521)
                            (11111)  (411)     (2221)     (611)
                                     (2211)    (3211)     (2222)
                                     (3111)    (4111)     (3311)
                                     (21111)   (22111)    (4211)
                                     (111111)  (31111)    (5111)
                                               (211111)   (22211)
                                               (1111111)  (32111)
                                                          (41111)
                                                          (221111)
                                                          (311111)
                                                          (2111111)
                                                          (11111111)
Missing from the list for n = 7 through 9:
  (43)   (62)    (54)
  (322)  (332)   (63)
         (431)   (432)
         (3221)  (522)
                 (621)
                 (3222)
                 (3321)
                 (4311)
                 (32211)

Cf. A003963, A005117, A038041, A062503, A064573, A072774, A295193, A302505, A306021, A319169, A320322, A322526, A322528, A322530.

Table[Length[Select[IntegerPartitions[n],SameQ@@Last/@FactorInteger[Times@@#]&]],{n,30}]

cp's OEIS Frontend

A320322 Number of integer partitions of n whose product is a perfect power.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

A320324 Numbers of which each prime index has the same number of prime factors, counted with multiplicity.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

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

A100778 Integer powers of primorial numbers.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

Extensions

A358901 Number of integer partitions of n whose parts have all different numbers of prime factors (A001222).

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

Extensions

A358905 Number of sequences of integer partitions with total sum n that are rectangular, meaning all lengths are equal.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A358911 Number of integer compositions of n whose parts all have the same number of prime factors, counted with multiplicity.

Views

Author

Keywords

Examples