A326837 -id:A326837 - cp's OEIS frontend

A340828 Number of strict integer partitions of n whose maximum part is a multiple of their length.

1, 1, 2, 1, 2, 3, 3, 2, 4, 5, 6, 6, 7, 8, 11, 10, 13, 17, 18, 21, 24, 27, 30, 35, 39, 46, 53, 61, 68, 79, 87, 97, 110, 123, 139, 157, 175, 196, 222, 247, 278, 312, 347, 385, 433, 476, 531, 586, 651, 720, 800, 883, 979, 1085, 1200, 1325, 1464, 1614, 1777

Offset: 1

Gus Wiseman, Feb 01 2021

nonn

			The a(1) = 1 through a(16) = 10 partitions (A..G = 10..16):
  1  2  3   4  5   6    7   8   9    A     B    C    D    E     F      G
        21     41  42   43  62  63   64    65   84   85   86    87     A6
                   321  61      81   82    83   A2   A3   A4    A5     C4
                                621  631   A1   642  C1   C2    C3     E2
                                     4321  632  651  643  653   E1     943
                                           641  921  652  932   654    952
                                                     931  941   942    961
                                                          8321  951    C31
                                                                C21    8431
                                                                8421   8521
                                                                54321

FindStat, St000010: The length of the partition.
FindStat, St000147: The largest part of an integer partition.
FindStat, St000784: The maximum of the length and the largest part of the integer partition.

Note: A-numbers of Heinz-number sequences are in parentheses below.
The non-strict version is A168659 (A340609/A340610).
A018818 counts partitions into divisors (A326841).
A047993 counts balanced partitions (A106529).
A064173 counts partitions of positive/negative rank (A340787/A340788).
A067538 counts partitions whose length/max divides sum (A316413/A326836).
A072233 counts partitions by sum and length, with strict case A008289.
A096401 counts strict partition with length equal to minimum.
A102627 counts strict partitions with length dividing sum.
A326842 counts partitions whose length and parts all divide sum (A326847).
A326850 counts strict partitions whose maximum part divides sum.
A326851 counts strict partitions with length and maximum dividing sum.
A340829 counts strict partitions with Heinz number divisible by sum.
A340830 counts strict partitions with all parts divisible by length.
Cf. A003114, A006141, A064174, A117409, A143773 (A316428), A200750, A326843 (A326837), A330950 (A324851).

Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&Divisible[Max@@#,Length[#]]&]],{n,30}]

A326847 Heinz numbers of integer partitions of m >= 0 using divisors of m whose length also divides m.

Original entry on oeis.org

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, 97, 101, 103, 107, 109, 113, 121, 125, 127, 128, 131, 137, 139, 149, 151, 157, 163, 167, 169, 173, 179, 181, 191, 193, 197

Offset: 1

Gus Wiseman, Jul 26 2019

nonn

First differs from A071139, A089352 and A086486 in lacking 60. First differs from A326837 in lacking 268.
The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k).
The enumeration of these partitions by sum is given by A326842.

			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}

R. J. Mathar, Table of n, a(n) for n = 1..489

Intersection of A326841 and A316413.

Cf. A001222, A018818, A056239, A067538, A112798, A316413, A326836, A326842.

isA326847 := proc(n)
    psigsu := A056239(n) ;
    for ifs in ifactors(n)[2] do
        p := op(1,ifs) ;
        psig := numtheory[pi](p) ;
        if modp(psigsu,psig) <> 0 then
            return false;
        end if;
    end do:
    psigle := numtheory[bigomega](n) ;
    if modp(psigsu,psigle) = 0 then
        true;
    else
        false;
    end if;
end proc:
n := 1:
for i from 2 to 3000 do
    if isA326847(i) then
        printf("%d %d\n",n,i);
        n := n+1 ;
    end if;
end do: # R. J. Mathar, Aug 09 2019

Select[Range[2,100],With[{y=Flatten[Cases[FactorInteger[#],{p_,k_}:>Table[PrimePi[p],{k}]]]},Divisible[Total[y],Length[y]]&&And@@IntegerQ/@(Total[y]/y)]&]

Intersection of A326841 and A316413.

A340606 Numbers whose prime indices (A112798) are all divisors of the number of prime factors (A001222).

Original entry on oeis.org

1, 2, 4, 6, 8, 9, 16, 20, 24, 32, 36, 50, 54, 56, 64, 81, 84, 96, 125, 126, 128, 144, 160, 176, 189, 196, 216, 240, 256, 294, 324, 360, 384, 400, 416, 441, 486, 512, 540, 576, 600, 624, 686, 729, 810, 864, 896, 900, 936, 968, 1000, 1024, 1029, 1040, 1088, 1215

Offset: 1

Gus Wiseman, Jan 24 2021

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 sequence of terms together with their prime indices begins:
   1: {}
   2: {1}
   4: {1,1}
   6: {1,2}
   8: {1,1,1}
   9: {2,2}
  16: {1,1,1,1}
  20: {1,1,3}
  24: {1,1,1,2}
  32: {1,1,1,1,1}
  36: {1,1,2,2}
  50: {1,3,3}
  54: {1,2,2,2}
  56: {1,1,1,4}
  64: {1,1,1,1,1,1}
  81: {2,2,2,2}
  84: {1,1,2,4}
  96: {1,1,1,1,1,2}

Note: Heinz numbers are given in parentheses below.
The reciprocal version is A143773 (A316428).
These partitions are counted by A340693.
A120383 lists numbers divisible by all of their prime indices.
A324850 lists numbers divisible by the product of their prime indices.
A003963 multiplies together the prime indices of n.
A018818 counts partitions of n into divisors of n (A326841).
A047993 counts balanced partitions (A106529).
A067538 counts partitions of n whose length divides n (A316413).
A056239 adds up the prime indices of n.
A061395 selects the maximum prime index.
A067538 counts partitions of n whose maximum divides n (A326836).
A072233 counts partitions by sum and length.
A112798 lists the prime indices of each positive integer.
A168659 = partitions whose length is divisible by their maximum (A340609).
A168659 = partitions whose maximum is divisible by their length (A340610).
A289509 lists numbers with relatively prime prime indices.
A326842 = partitions of n whose length and parts all divide n (A326847).
A326843 = partitions of n whose length and maximum both divide n (A326837).
A340852 have a factorization with factors dividing length.
Cf. A000720, A001222, A006141, A067539, A200750, A298423, A324925, A326149/A326155, A340608, A340827.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],And@@IntegerQ/@(PrimeOmega[#]/primeMS[#])&]

A340830 Number of strict integer partitions of n such that every part is a multiple of the number of parts.

Original entry on oeis.org

1, 1, 1, 1, 1, 2, 1, 2, 1, 3, 1, 3, 1, 4, 1, 4, 1, 6, 1, 5, 2, 6, 1, 8, 1, 7, 4, 7, 1, 12, 1, 8, 6, 9, 1, 16, 1, 10, 9, 11, 1, 21, 1, 12, 13, 12, 1, 28, 1, 13, 17, 16, 1, 33, 1, 19, 22, 15, 1, 45, 1, 16, 28, 25, 1, 47, 1, 28, 34, 18

Offset: 1

Gus Wiseman, Feb 02 2021

nonn

			The a(n) partitions for n = 1, 6, 10, 14, 18, 20, 24, 26, 30:
  1   6     10    14     18      20     24       26      30
      4,2   6,4   8,6    10,8    12,8   16,8     18,8    22,8
            8,2   10,4   12,6    14,6   18,6     20,6    24,6
                  12,2   14,4    16,4   20,4     22,4    26,4
                         16,2    18,2   22,2     24,2    28,2
                         9,6,3          14,10    14,12   16,14
                                        12,9,3   16,10   18,12
                                        15,6,3           20,10
                                                         15,9,6
                                                         18,9,3
                                                         21,6,3
                                                         15,12,3

Note: A-numbers of Heinz-number sequences are in parentheses below.
The non-strict case is A143773 (A316428).
The case where length divides sum also is A340827.
The version for factorizations is A340851.
Factorization of this type are counted by A340853.
A018818 counts partitions into divisors (A326841).
A047993 counts balanced partitions (A106529).
A067538 counts partitions whose length/max divide sum (A316413/A326836).
A072233 counts partitions by sum and length, with strict case A008289.
A102627 counts strict partitions whose length divides sum.
A326850 counts strict partitions whose maximum part divides sum.
A326851 counts strict partitions with length and maximum dividing sum.
A340828 counts strict partitions with length divisible by maximum.
A340829 counts strict partitions with Heinz number divisible by sum.
Cf. A114638, A168659, A326641, A326843 (A326837), A326849, A326852 (A326838), A330950 (A324851), A340852.

Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&And@@IntegerQ/@(#/Length[#])&]],{n,30}]

a(n) = Sum_{d|n} A008289(n/d, d).

A326846 Length times maximum of the integer partition with Heinz number n.

Original entry on oeis.org

0, 1, 2, 2, 3, 4, 4, 3, 4, 6, 5, 6, 6, 8, 6, 4, 7, 6, 8, 9, 8, 10, 9, 8, 6, 12, 6, 12, 10, 9, 11, 5, 10, 14, 8, 8, 12, 16, 12, 12, 13, 12, 14, 15, 9, 18, 15, 10, 8, 9, 14, 18, 16, 8, 10, 16, 16, 20, 17, 12, 18, 22, 12, 6, 12, 15, 19, 21, 18, 12, 20, 10, 21, 24, 9, 24, 10, 18, 22, 15, 8, 26, 23, 16, 14, 28, 20, 20, 24

Offset: 1

Gus Wiseman, Jul 26 2019

nonn

The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k), so a(n) is the size of the minimal rectangle containing the Young digram of the integer partition with Heinz number n.

Cf. A047993, A056239, A061395, A106529, A112798.
Cf. A316413, A326836, A326837, A326844, A326845, A326848, A326849.
Cf. also A331297.

Table[PrimeOmega[n]*PrimePi[FactorInteger[n][[-1,1]]],{n,100}]

A326846(n) = if(1==n, 0, bigomega(n)*primepi(vecmax(factor(n)[, 1]))); \\ Antti Karttunen, Jan 18 2020

a(n) = A001222(n) * A061395(n).

More terms from Antti Karttunen, Jan 18 2020

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))
```

A340827 Number of strict integer partitions of n into divisors of n whose length also divides n.

Original entry on oeis.org

1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 2, 1, 2, 1, 1, 1, 5, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 5, 1, 1, 1, 3, 1, 2, 1, 1, 1, 1, 1, 6, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 25, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 18, 1, 1, 1, 1, 1, 2, 1, 3, 1, 1, 1, 17, 1, 1, 1, 1, 1, 14, 1, 1, 1, 1, 1, 12, 1, 1, 1, 3, 1, 2, 1, 1, 1

Offset: 1

Gus Wiseman, Feb 01 2021

nonn

The first element not in A326715 that is however a Heinz number of these partitions is 273.

			The a(n) partitions for n = 6, 12, 24, 90, 84:
  6       12        24            90                      84
  3,2,1   6,4,2     12,8,4        45,30,15                42,28,14
          6,3,2,1   12,6,4,2      45,30,9,5,1             42,21,14,7
                    12,8,3,1      45,18,15,9,3            42,28,12,2
                    8,6,4,3,2,1   45,30,10,3,2            42,28,6,4,3,1
                                  45,18,15,10,2           42,28,7,4,2,1
                                  45,30,6,5,3,1           42,14,12,7,6,3
                                  45,30,9,3,2,1           42,21,12,4,3,2
                                  45,15,10,9,6,5          42,21,12,6,2,1
                                  45,18,10,9,5,3          42,21,14,4,2,1
                                  45,18,10,9,6,2          28,21,14,12,6,3
                                  45,18,15,6,5,1          28,21,14,12,7,2
                                  45,18,15,9,2,1          42,21,7,6,4,3,1
                                  30,18,15,10,6,5,3,2,1   42,14,12,7,4,3,2
                                                          42,14,12,7,6,2,1
                                                          28,21,14,12,4,3,2
                                                          28,21,14,12,6,2,1

David A. Corneth, Table of n, a(n) for n = 1..10000 (first 2519 terms from Antti Karttunen)
Antti Karttunen, Scheme program for computing this sequence

Note: A-numbers of Heinz-number sequences are in parentheses below.
The non-strict case is A326842 (A326847).
A018818 = partitions using divisors (A326841).
A047993 = balanced partitions (A106529).
A067538 = partitions whose length/maximum divides sum (A316413/A326836).
A072233 = partitions by sum and length, with strict case A008289.
A102627 = strict partitions whose length divides sum.
A326850 = strict partitions whose maximum part divides sum.
A326851 = strict partitions w/ length and max dividing sum.
A340828 = strict partitions w/ length divisible by max.
A340829 = strict partitions w/ Heinz number divisible by sum.
A340830 = strict partitions w/ parts divisible by length.
Cf. A064173, A143773 (A316428), A168659, A326843 (A326837), A326852, A330950 (A324851), A340851, A340853.

Table[Length[Select[IntegerPartitions[n,All,Divisors[n]],UnsameQ@@#&&Divisible[n,Length[#]]&]],{n,30}]

A340827(n, divsleft=List(divisors(n)), rest=n, len=0) = if(rest<=0, !rest && !(n%len), my(s=0, d); forstep(i=#divsleft, 1, -1, d = divsleft[i]; listpop(divsleft,i); if(rest>=d, s += A340827(n, divsleft, rest-d, 1+len))); (s)); \\ Antti Karttunen, Feb 22 2023

;; See the Links-section. - Antti Karttunen, Feb 22 2023

Data section extended up to a(105) by Antti Karttunen, Feb 22 2023

A359360 Length times minimum part of the integer partition with Heinz number n. Least prime index of n times number of prime indices of n.

Original entry on oeis.org

0, 1, 2, 2, 3, 2, 4, 3, 4, 2, 5, 3, 6, 2, 4, 4, 7, 3, 8, 3, 4, 2, 9, 4, 6, 2, 6, 3, 10, 3, 11, 5, 4, 2, 6, 4, 12, 2, 4, 4, 13, 3, 14, 3, 6, 2, 15, 5, 8, 3, 4, 3, 16, 4, 6, 4, 4, 2, 17, 4, 18, 2, 6, 6, 6, 3, 19, 3, 4, 3, 20, 5, 21, 2, 6, 3, 8, 3, 22, 5, 8, 2

Offset: 1

Gus Wiseman, Dec 28 2022

nonn

The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). A prime index of n is a number m such that prime(m) divides n.

			The partition with Heinz number 7865 is (6,5,5,3), so a(7865) = 4*3 = 12.

Difference of A056239 and A359358.
The opposite version is A326846.
A055396 gives minimum prime index, maximum A061395.
A112798 list prime indices, length A001222, sum A056239.
A243055 subtracts the least prime index from the greatest.
A358195 gives Heinz numbers of rows of A358172, even bisection A241916.
Cf. A006141, A124010, A246277, A268192, A316413, A325352, A326836, A326837, A326844, A355534, A356958.

Table[PrimeOmega[n]*PrimePi[FactorInteger[n][[1,1]]],{n,100}]

a(n) = if (n==1, 0, my(f=factor(n)); bigomega(f)*primepi(f[1, 1])); \\ Michel Marcus, Dec 28 2022

a(n) = A001222(n) * A055396(n).

A340693 Number of integer partitions of n where each part is a divisor of the number of parts.

Original entry on oeis.org

1, 1, 1, 2, 2, 3, 2, 5, 5, 7, 7, 10, 10, 14, 14, 17, 19, 24, 24, 32, 33, 42, 43, 58, 59, 75, 79, 98, 104, 124, 128, 156, 166, 196, 204, 239, 251, 292, 306, 352, 372, 426, 445, 514, 543, 616, 652, 745, 790, 896, 960, 1080, 1162, 1311, 1400, 1574, 1692, 1892

Offset: 0

Gus Wiseman, Jan 23 2021

nonn

The only strict partitions counted are (), (1), and (2,1).

Is there a simple generating function?

			The a(1) = 1 through a(9) = 7 partitions:
  1  11  21   22    311    2211    331      2222      333
         111  1111  2111   111111  2221     4211      4221
                    11111          4111     221111    51111
                                   211111   311111    222111
                                   1111111  11111111  321111
                                                      21111111
                                                      111111111

Note: Heinz numbers are given in parentheses below.
The reciprocal version is A143773 (A316428), with strict case A340830.
The case where length also divides n is A326842 (A326847).
The Heinz numbers of these partitions are A340606.
The version for factorizations is A340851, with reciprocal version A340853.
A018818 counts partitions of n into divisors of n (A326841).
A047993 counts balanced partitions (A106529).
A067538 counts partitions of n whose length/max divides n (A316413/A326836).
A067539 counts partitions with integer geometric mean (A326623).
A072233 counts partitions by sum and length.
A168659 = partitions whose greatest part divides their length (A340609).
A168659 = partitions whose length divides their greatest part (A340610).
A326843 = partitions of n whose length and maximum both divide n (A326837).
A330950 = partitions of n whose Heinz number is divisible by n (A324851).
Cf. A000041, A003114, A006141, A033630, A064174, A074761, A102627, A200750, A237984, A298423, A340827.

Table[Length[Select[IntegerPartitions[n],And@@IntegerQ/@(Length[#]/#)&]],{n,0,30}]

A326852 Number of non-constant integer partitions of n whose length and maximum both divide n.

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 1, 0, 16, 0, 1, 7, 11, 0, 30, 0, 40, 18, 1, 0, 201, 0, 1, 38, 124, 0, 426, 0, 211, 73, 1, 48, 1391, 0, 1, 131, 1741, 0, 1774, 0, 951, 2145, 1, 0, 8345, 0, 1853, 381, 2382, 0, 6718, 2761, 10633, 623, 1, 0, 68037

Offset: 0

Gus Wiseman, Jul 26 2019

nonn

The Heinz numbers of these partitions are given by A326838.

			The a(6) = 1 through a(16) = 11 partitions (empty columns not shown):
  (321)  (4211)  (52111)  (633)     (7211111)  (53322)  (8332)
                          (642)                (53331)  (8422)
                          (651)                (54222)  (8431)
                          (4332)               (54321)  (8521)
                          (4422)               (54411)  (8611)
                          (4431)               (55221)  (42222211)
                          (6222)               (55311)  (43222111)
                          (6321)                        (43321111)
                          (6411)                        (44221111)
                          (322221)                      (44311111)
                          (332211)                      (82111111)
                          (333111)
                          (422211)
                          (432111)
                          (441111)
                          (621111)

Fausto A. C. Cariboni, Table of n, a(n) for n = 0..180

The possibly constant case is A326843.
The strict case is A326851.
Cf. A018818, A047993, A067538, A326837, A326838, A326842, A326849.

Table[Length[Select[IntegerPartitions[n],!SameQ@@#&&Divisible[n,Length[#]]&&Divisible[n,Max[#]]&]],{n,0,30}]

cp's OEIS Frontend

A340828 Number of strict integer partitions of n whose maximum part is a multiple of their length.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

A326847 Heinz numbers of integer partitions of m >= 0 using divisors of m whose length also divides m.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

A340606 Numbers whose prime indices (A112798) are all divisors of the number of prime factors (A001222).

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A340830 Number of strict integer partitions of n such that every part is a multiple of the number of parts.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

Formula

A326846 Length times maximum of the integer partition with Heinz number n.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

PARI

A340827 Number of strict integer partitions of n into divisors of n whose length also divides n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Scheme

Extensions

A359360 Length times minimum part of the integer partition with Heinz number n. Least prime index of n times number of prime indices of n.

Views

Author