A316428 -id:A316428 - cp's OEIS frontend

A353399 Numbers whose product of prime exponents equals the product of prime shadows of its prime indices.

1, 2, 12, 20, 36, 44, 56, 68, 100, 124, 164, 184, 208, 236, 240, 268, 332, 436, 464, 484, 508, 528, 608, 628, 688, 716, 720, 752, 764, 776, 816, 844, 880, 964, 1108, 1132, 1156, 1168, 1200, 1264, 1296, 1324, 1344, 1360, 1412, 1468, 1488, 1584, 1604, 1616, 1724

Offset: 1

Gus Wiseman, May 17 2022

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.

We define the prime shadow A181819(n) to be the product of primes indexed by the exponents in the prime factorization of n. For example, 90 = prime(1)*prime(2)^2*prime(3) has prime shadow prime(1)*prime(2)*prime(1) = 12.

			The terms together with their prime indices begin:
     1: {}
     2: {1}
    12: {1,1,2}
    20: {1,1,3}
    36: {1,1,2,2}
    44: {1,1,5}
    56: {1,1,1,4}
    68: {1,1,7}
   100: {1,1,3,3}
   124: {1,1,11}
   164: {1,1,13}
   184: {1,1,1,9}
   208: {1,1,1,1,6}
   236: {1,1,17}
   240: {1,1,1,1,2,3}

Product of prime indices is A003963, counted by A339095.
The LHS (product of exponents) is A005361, counted by A266477.
The RHS (product of shadows) is A353394, first appearances A353397.
A related comparison is A353395, counted by A353396.
The partitions are counted by A353398.
Taking indices instead of exponents on the LHS gives A353503.
A001222 counts prime factors with multiplicity, distinct A001221.
A056239 adds up prime indices, row sums of A112798 and A296150.
A124010 gives prime signature, sorted A118914.
A130091 lists numbers with distinct prime exponents, counted by A098859.
A181819 gives prime shadow, with an inverse A181821.
A325131 lists numbers relatively prime to their prime shadow.
Numbers divisible by their prime shadow:
- counted by A325702
- listed by A325755
- co-recursive version A325756
- nonprime recursive version A353389
- recursive version A353393
- recursive version counted by A353426
Cf. A000720, A003586, A005117, A143773, A182850, A316428, A320325, A324850.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
red[n_]:=If[n==1,1,Times@@Prime/@Last/@FactorInteger[n]];
Select[Range[100],Times@@red/@primeMS[#]==Times@@Last/@FactorInteger[#]&]

A005361(a(n)) = A353394(a(n)).

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

Original entry on oeis.org

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}]

A316429 Heinz numbers of integer partitions whose length is equal to their LCM.

Original entry on oeis.org

2, 6, 9, 20, 50, 56, 84, 125, 126, 176, 189, 196, 240, 294, 360, 416, 441, 540, 600, 624, 686, 810, 900, 936, 968, 1029, 1040, 1088, 1215, 1350, 1404, 1500, 1560, 2025, 2106, 2250, 2340, 2401, 2432, 2600, 2704, 3159, 3375, 3510, 3648, 3750, 3900, 4056, 5265

Offset: 1

Gus Wiseman, Jul 02 2018

A110295 is a subsequence.

			3750 is the Heinz number of (3,3,3,3,2,1), whose length and lcm are both 6.

David A. Corneth, Table of n, a(n) for n = 1..10822 (Terms <= 5 * 10^11)

Cf. A056239, A074761, A110295, A143773, A237984, A289508, A289509, A290103, A296150, A316413, A316428, A316430, A316431.

Select[Range[2,200],PrimeOmega[#]==LCM@@Cases[FactorInteger[#],{p_,k_}:>PrimePi[p]]&]

heinz(n) = my(f=factor(n), pr=f[,1]~,exps=f[,2], res=vector(vecsum(exps)), t=0); for(i = 1, #pr, pr[i] = primepi(pr[i]); for(j=1, exps[i],t++; res[t] = pr[i])); res
is(n) = my(h = heinz(n)); lcm(h)==#h \\ David A. Corneth, Jul 05 2018

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

A344416 Heinz numbers of integer partitions whose sum is even and is at most twice the greatest part.

Original entry on oeis.org

3, 4, 7, 9, 10, 12, 13, 19, 21, 22, 25, 28, 29, 30, 34, 37, 39, 40, 43, 46, 49, 52, 53, 55, 57, 61, 62, 63, 66, 70, 71, 76, 79, 82, 84, 85, 87, 88, 89, 91, 94, 101, 102, 107, 111, 112, 113, 115, 116, 117, 118, 121, 129, 130, 131, 133, 134, 136, 138, 139, 146

Offset: 1

Gus Wiseman, May 20 2021

nonn

The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k), giving a bijective correspondence between positive integers and integer partitions.

Also numbers m whose sum of prime indices A056239(m) is even and is at most twice the greatest prime index A061395(m).

			The sequence of terms together with their prime indices begins:
      3: {2}         37: {12}          71: {20}
      4: {1,1}       39: {2,6}         76: {1,1,8}
      7: {4}         40: {1,1,1,3}     79: {22}
      9: {2,2}       43: {14}          82: {1,13}
     10: {1,3}       46: {1,9}         84: {1,1,2,4}
     12: {1,1,2}     49: {4,4}         85: {3,7}
     13: {6}         52: {1,1,6}       87: {2,10}
     19: {8}         53: {16}          88: {1,1,1,5}
     21: {2,4}       55: {3,5}         89: {24}
     22: {1,5}       57: {2,8}         91: {4,6}
     25: {3,3}       61: {18}          94: {1,15}
     28: {1,1,4}     62: {1,11}       101: {26}
     29: {10}        63: {2,2,4}      102: {1,2,7}
     30: {1,2,3}     66: {1,2,5}      107: {28}
     34: {1,7}       70: {1,3,4}      111: {2,12}

These partitions are counted by A000070 = even-indexed terms of A025065.
The opposite version appears to be A320924, counted by A209816.
The opposite version with odd weights allowed appears to be A322109.
The conjugate opposite version allowing odds is A344291, counted by A110618.
The conjugate version is A344296, also counted by A025065.
The conjugate opposite version is A344413, counted by A209816.
Allowing odd weight gives A344414.
The case of equality is A344415, counted by A035363.
A001222 counts prime factors with multiplicity.
A027187 counts partitions of even length, ranked by A028260.
A056239 adds up prime indices, row sums of A112798.
A058696 counts partitions of even numbers, ranked by A300061.
A265640 lists Heinz numbers of palindromic partitions.
A301987 lists numbers whose sum of prime indices equals their product.
A334201 adds up all prime indices except the greatest.
A340387 lists Heinz numbers of partitions whose sum is twice their length.
Cf. A001414, A074761, A316413, A316428, A325037, A325038, A325044, A330950, A344293, A344294, A344297.

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

Intersection of A300061 and A344414.

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

A353389 Create the sequence of all positive integers > 1 that are prime or whose prime shadow (A181819) is a divisor that is already in the sequence. Then remove all the primes.

Original entry on oeis.org

9, 36, 125, 225, 441, 1089, 1260, 1521, 1980, 2340, 2401, 2601, 2772, 3060, 3249, 3276, 3420, 4140, 4284, 4761, 4788, 5148, 5220, 5580, 5796, 6660, 6732, 7308, 7380, 7524, 7569, 7740, 7812, 7956, 8460, 8649, 8892, 9108, 9324, 9540, 10332, 10620, 10764, 10836

Offset: 1

Gus Wiseman, May 15 2022

nonn

We define the prime shadow A181819(n) to be the product of primes indexed by the exponents in the prime factorization of n. For example, 90 = prime(1)*prime(2)^2*prime(3) has prime shadow prime(1)*prime(2)*prime(1) = 12.

Said differently, these are nonprime numbers > 1 whose prime shadow is a divisor that is either a prime number or a number already in the sequence.

			The initial terms and their prime indices:
     9: {2,2}
    36: {1,1,2,2}
   125: {3,3,3}
   225: {2,2,3,3}
   441: {2,2,4,4}
  1089: {2,2,5,5}
  1260: {1,1,2,2,3,4}
  1521: {2,2,6,6}
  1980: {1,1,2,2,3,5}

The first term that is not a perfect power A001597 is 1260.
Without the recursion we have A325755 (a superset), counted by A325702.
Before removing the primes we had A353393.
These partitions are counted by A353426 minus one.
A001222 counts prime factors with multiplicity, distinct A001221.
A003963 gives product of prime indices.
A056239 adds up prime indices, row sums of A112798 and A296150.
A124010 gives prime signature, sorted A118914.
A181819 gives prime shadow, with an inverse A181821.
A182850 and A323014 give frequency depth, counted by A225485 and A325280.
A325131 lists numbers relatively prime to their prime shadow.
Cf. A000005, A000040, A005117, A316413, A316428, A324850, A353394, A353395, A353397, A353399.

red[n_]:=If[n==1,1,Times@@Prime/@Last/@FactorInteger[n]];
suQ[n_]:=PrimeQ[n]||Divisible[n,red[n]]&&suQ[red[n]];
Select[Range[2,2000],suQ[#]&&!PrimeQ[#]&]

A340853 Number of factorizations of n such that every factor is a multiple of the number of factors.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, Feb 04 2021

nonn

Also factorizations whose greatest common divisor is a multiple of the number of factors.

			The a(n) factorizations for n = 2, 4, 16, 48, 96, 144, 216, 240, 432:
  2   4     16    48     96     144     216      240     432
      2*2   2*8   6*8    2*48   2*72    4*54     4*60    6*72
            4*4   2*24   4*24   4*36    6*36     6*40    8*54
                  4*12   6*16   6*24    12*18    8*30    12*36
                         8*12   8*18    2*108    10*24   18*24
                                12*12   6*6*6    12*20   2*216
                                        3*3*24   2*120   4*108
                                        3*6*12           3*3*48
                                                         3*6*24
                                                         6*6*12
                                                         3*12*12

Positions of 1's are A048103.
Positions of terms > 1 are A100716.
The version for partitions is A143773 (A316428).
The reciprocal for partitions is A340693 (A340606).
The version for strict partitions is A340830.
The reciprocal version is A340851.
A320911 can be factored into squarefree semiprimes.
A340597 have an alt-balanced factorization.
A340656 lack a twice-balanced factorization, complement A340657.
- Factorizations -
A001055 counts factorizations, with strict case A045778.
A316439 counts factorizations by product and length.
A339846 counts factorizations of even length.
A339890 counts factorizations of odd length.
A340101 counts factorizations into odd factors, odd-length case A340102.
A340653 counts balanced factorizations.
A340785 counts factorizations into even factors, even-length case A340786.
A340831/A340832 counts factorizations with odd maximum/minimum.
A340854 cannot be factored with odd least factor, complement A340855.
Cf. A067538, A168659, A301987, A316413, A327517, A340596, A340599, A340654, A340655, A340827.

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],n>1&&Divisible[GCD@@#,Length[#]]&]],{n,100}]

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}]

cp's OEIS Frontend

A353399 Numbers whose product of prime exponents equals the product of prime shadows of its prime indices.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

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

A316429 Heinz numbers of integer partitions whose length is equal to their LCM.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

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

A344416 Heinz numbers of integer partitions whose sum is even and is at most twice the greatest part.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

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

A353389 Create the sequence of all positive integers > 1 that are prime or whose prime shadow (A181819) is a divisor that is already in the sequence. Then remove all the primes.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs