A326848 -id:A326848 - cp's OEIS frontend

A326837 Heinz numbers of integer partitions whose length and maximum both divide their sum.

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

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

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

The non-constant case is A326838.
The strict case is A326851.
Cf. A001222, A047993, A056239, A061395, A067538, A112798, A316413, A326836, A326843, A326847, A326848.

isA326837 := proc(n)
    psigsu := A056239(n) ;
    psigma := A061395(n) ;
    psigle := numtheory[bigomega](n) ;
    if modp(psigsu,psigma) = 0 and modp(psigsu,psigle) = 0 then
        true;
    else
        false;
    end if;
end proc:
n := 1:
for i from 2 to 3000 do
    if isA326837(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],Max[y]]&&Divisible[Total[y],Length[y]]]&]

A340610 Numbers whose number of prime factors (A001222) divides their greatest prime index (A061395).

Original entry on oeis.org

2, 3, 5, 6, 7, 9, 11, 13, 14, 17, 19, 20, 21, 23, 26, 29, 30, 31, 35, 37, 38, 39, 41, 43, 45, 47, 49, 50, 52, 53, 56, 57, 58, 59, 61, 65, 67, 71, 73, 74, 75, 78, 79, 83, 84, 86, 87, 89, 91, 92, 95, 97, 101, 103, 106, 107, 109, 111, 113, 117, 122, 125, 126, 127

Offset: 1

Gus Wiseman, Jan 27 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:
     2: {1}        29: {10}       56: {1,1,1,4}
     3: {2}        30: {1,2,3}    57: {2,8}
     5: {3}        31: {11}       58: {1,10}
     6: {1,2}      35: {3,4}      59: {17}
     7: {4}        37: {12}       61: {18}
     9: {2,2}      38: {1,8}      65: {3,6}
    11: {5}        39: {2,6}      67: {19}
    13: {6}        41: {13}       71: {20}
    14: {1,4}      43: {14}       73: {21}
    17: {7}        45: {2,2,3}    74: {1,12}
    19: {8}        47: {15}       75: {2,3,3}
    20: {1,1,3}    49: {4,4}      78: {1,2,6}
    21: {2,4}      50: {1,3,3}    79: {22}
    23: {9}        52: {1,1,6}    83: {23}
    26: {1,6}      53: {16}       84: {1,1,2,4}

Robert Israel, Table of n, a(n) for n = 1..10000

Note: Heinz numbers are given in parentheses below.
The case of equality is A047993 (A106529).
The case where all parts are multiples, not just the maximum part, is A143773 (A316428), with strict case A340830, while the case of factorizations is A340853.
These are the Heinz numbers of certain partitions counted by A168659.
The reciprocal version is A340609.
The squarefree case is A340828 (A340856).
A001222 counts prime factors.
A006141 counts partitions whose length equals their minimum (A324522).
A056239 adds up prime indices.
A061395 selects the maximum prime index.
A067538 counts partitions whose length divides their sum (A316413).
A067538 counts partitions whose maximum divides their sum (A326836).
A112798 lists the prime indices of each positive integer.
A200750 counts partitions with length coprime to maximum (A340608).
A325134 = A001222 + A061395.
A326845 = A056239 * A061395.
Cf. A244990/A244991, A326837, A326849 (A326848), A340653, A340691, A340693 (A340606), A340787/A340788.

filter:= proc(n) local F,m,g,t;
  F:= ifactors(n)[2];
  m:= add(t[2],t=F);
  g:= numtheory:-pi(max(seq(t[1],t=F)));
  g mod m = 0;
end proc:
select(filter, [$2..1000]); # Robert Israel, Feb 08 2021

Select[Range[2,100],Divisible[PrimePi[FactorInteger[#][[-1,1]]],PrimeOmega[#]]&]

A001222(a(n)) divides A061395(a(n)).

A326844 Let y be the integer partition with Heinz number n. Then a(n) is the size of the complement, in the minimal rectangular partition containing the Young diagram of y, of the Young diagram of y.

Original entry on oeis.org

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

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

			The partition with Heinz number 7865 is (6,5,5,3), with diagram:
  o o o o o o
  o o o o o .
  o o o o o .
  o o o . . .
The size of the complement (shown in dots) in a 6 X 4 rectangle is 5, so a(7865) = 5.

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

Cf. A056239, A061395, A106529, A112798, A268192.

Cf. A316413, A326836, A326837, A326845, A326846, A326848.

Table[If[n==1,0,With[{y=Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]},Max[y]*Length[y]-Total[y]]],{n,100}]

A056239(n) = if(1==n, 0, my(f=factor(n)); sum(i=1, #f~, f[i, 2] * primepi(f[i, 1])));
A061395(n) = if(n>1, primepi(vecmax(factor(n)[, 1])), 0);
A326844(n) = ((bigomega(n)*A061395(n)) - A056239(n)); \\ Antti Karttunen, Feb 10 2023

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

Data section extended up to term a(100) by Antti Karttunen, Feb 10 2023

A340609 Numbers whose number of prime factors (A001222) is divisible by their greatest prime index (A061395).

Original entry on oeis.org

2, 4, 6, 8, 9, 16, 20, 24, 30, 32, 36, 45, 50, 54, 56, 64, 75, 81, 84, 96, 125, 126, 128, 140, 144, 160, 176, 189, 196, 210, 216, 240, 256, 264, 294, 315, 324, 350, 360, 384, 396, 400, 416, 440, 441, 486, 490, 512, 525, 540, 576, 594, 600, 616, 624, 660, 686

Offset: 1

Gus Wiseman, Jan 27 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.

If n is a term, then so is n^k for k > 1. - Robert Israel, Feb 08 2021

			The sequence of terms together with their prime indices begins:
      2: {1}             64: {1,1,1,1,1,1}      216: {1,1,1,2,2,2}
      4: {1,1}           75: {2,3,3}            240: {1,1,1,1,2,3}
      6: {1,2}           81: {2,2,2,2}          256: {1,1,1,1,1,1,1,1}
      8: {1,1,1}         84: {1,1,2,4}          264: {1,1,1,2,5}
      9: {2,2}           96: {1,1,1,1,1,2}      294: {1,2,4,4}
     16: {1,1,1,1}      125: {3,3,3}            315: {2,2,3,4}
     20: {1,1,3}        126: {1,2,2,4}          324: {1,1,2,2,2,2}
     24: {1,1,1,2}      128: {1,1,1,1,1,1,1}    350: {1,3,3,4}
     30: {1,2,3}        140: {1,1,3,4}          360: {1,1,1,2,2,3}
     32: {1,1,1,1,1}    144: {1,1,1,1,2,2}      384: {1,1,1,1,1,1,1,2}
     36: {1,1,2,2}      160: {1,1,1,1,1,3}      396: {1,1,2,2,5}
     45: {2,2,3}        176: {1,1,1,1,5}        400: {1,1,1,1,3,3}
     50: {1,3,3}        189: {2,2,2,4}          416: {1,1,1,1,1,6}
     54: {1,2,2,2}      196: {1,1,4,4}          440: {1,1,1,3,5}
     56: {1,1,1,4}      210: {1,2,3,4}          441: {2,2,4,4}

Robert Israel, Table of n, a(n) for n = 1..10000

Note: Heinz numbers are given in parentheses below.
The case of equality is A047993 (A106529).
These are the Heinz numbers of certain partitions counted by A168659.
The reciprocal version is A340610, with strict case A340828 (A340856).
If all parts (not just the greatest) are divisors we get A340693 (A340606).
A001222 counts prime factors.
A006141 counts partitions whose length equals their minimum (A324522).
A056239 adds up prime indices.
A061395 selects the maximum prime index.
A067538 counts partitions whose length divides their sum (A316413).
A067538 counts partitions whose maximum divides their sum (A326836).
A112798 lists the prime indices of each positive integer.
A200750 counts partitions with length coprime to maximum (A340608).
A325134 = A001222 + A061395.
A326845 = A056239 * A061395.
Cf. A039900, A064174, A143773, A244990/A244991, A326837, A326849 (A326848), A340653, A340787/A340788.

filter:= proc(n) local F,m,g,t;
  F:= ifactors(n)[2];
  m:= add(t[2],t=F);
  g:= numtheory:-pi(max(seq(t[1],t=F)));
  m mod g = 0;
end proc:
seelect(filter, [$2..1000]); # Robert Israel, Feb 08 2021

Select[Range[2,100],Divisible[PrimeOmega[#],PrimePi[FactorInteger[#][[-1,1]]]]&]

A061395(a(n)) divides A001222(a(n)).

A326849 Number of integer partitions of n whose length times maximum is a multiple of n.

Original entry on oeis.org

1, 1, 2, 2, 3, 2, 6, 2, 5, 5, 10, 2, 19, 2, 18, 26, 24, 2, 55, 2, 87, 82, 60, 2, 207, 86, 106, 192, 363, 2, 668, 2, 527, 616, 304, 928, 1827, 2, 498, 1518, 3229, 2, 4294, 2, 4445, 6307, 1266, 2, 11560, 3629, 8280, 7802, 13633, 2, 19120, 18938, 31385, 16618, 4584

Offset: 0

Gus Wiseman, Jul 26 2019

nonn

The Heinz numbers of these partitions are given by A326848.

			The a(1) = 1 through a(9) = 5 partitions:
  1   2    3     4      5       6        7         8          9
      11   111   22     11111   33       1111111   44         333
                 1111           222                2222       621
                                411                4211       321111
                                3111               11111111   111111111
                                111111
For example, (4,1,1) is such a partition because its length times maximum is 3 * 4 = 12, which is a multiple of 6.

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

Cf. A018818, A047993, A067538, A326837, A326842, A326843.

Table[If[n==0,1,Length[Select[IntegerPartitions[n],Divisible[Max[#]*Length[#],n]&]]],{n,0,30}]

A340608 The number of prime factors of n (A001222) is relatively prime to the maximum prime index of n (A061395).

Original entry on oeis.org

2, 3, 4, 5, 7, 8, 10, 11, 12, 13, 15, 16, 17, 18, 19, 22, 23, 25, 27, 28, 29, 31, 32, 33, 34, 37, 40, 41, 42, 43, 44, 46, 47, 48, 51, 53, 55, 59, 60, 61, 62, 63, 64, 66, 67, 68, 69, 70, 71, 72, 73, 76, 77, 79, 80, 82, 83, 85, 88, 89, 90, 93, 94, 97, 98, 99

Offset: 1

Gus Wiseman, Jan 27 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:
     2: {1}          22: {1,5}          44: {1,1,5}
     3: {2}          23: {9}            46: {1,9}
     4: {1,1}        25: {3,3}          47: {15}
     5: {3}          27: {2,2,2}        48: {1,1,1,1,2}
     7: {4}          28: {1,1,4}        51: {2,7}
     8: {1,1,1}      29: {10}           53: {16}
    10: {1,3}        31: {11}           55: {3,5}
    11: {5}          32: {1,1,1,1,1}    59: {17}
    12: {1,1,2}      33: {2,5}          60: {1,1,2,3}
    13: {6}          34: {1,7}          61: {18}
    15: {2,3}        37: {12}           62: {1,11}
    16: {1,1,1,1}    40: {1,1,1,3}      63: {2,2,4}
    17: {7}          41: {13}           64: {1,1,1,1,1,1}
    18: {1,2,2}      42: {1,2,4}        66: {1,2,5}
    19: {8}          43: {14}           67: {19}

Amiram Eldar, Table of n, a(n) for n = 1..10000

Note: Heinz numbers are given in parentheses below.
These are the Heinz numbers of the partitions counted by A200750.
The case of equality is A047993 (A106529).
The divisible instead of coprime version is A168659 (A340609).
The dividing instead of coprime version is A168659 (A340610), with strict case A340828 (A340856).
A001222 counts prime factors.
A006141 counts partitions whose length equals their minimum (A324522).
A051424 counts singleton or pairwise coprime partitions (A302569).
A056239 adds up prime indices.
A061395 selects the maximum prime index.
A067538 counts partitions whose length divides their sum (A316413).
A067538 counts partitions whose maximum divides their sum (A326836).
A112798 lists the prime indices of each positive integer.
A259936 counts singleton or pairwise coprime factorizations.
A325134 = A001222 + A061395.
A326845 = A056239 * A061395.
A326849 counts partitions whose sum divides length times maximum (A326848).
A327516 counts pairwise coprime partitions (A302696).
Cf. A003114, A039900, A096401, A244990/A244991, A340606, A340653, A340691, A340787/A340788.

Select[Range[100],GCD[PrimeOmega[#],PrimePi[FactorInteger[#][[-1,1]]]]==1&]

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

A326839 Numerator of A056239(n)/A061395(n) where A056239 is sum of prime indices and A061395 is maximum prime index.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, Jul 26 2019

This is a dual form of the average of an integer partition specified by its Heinz number: A326567/A326568.

			The sequence of fractions begins: 0, 1, 1, 2, 1, 3/2, 1, 3, 2, 4/3, 1, 2, 1, 5/4, 5/3, 4, 1, 5/2, 1, 5/3.

Denominators are A326840.
Positions of 1's are A000040.
Cf. A001222, A047993, A056239, A061395, A112798, A316413.
Cf. A326567/A326568, A326836, A326845, A326848, A326850.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Numerator[Table[Total[primeMS[n]]/Max@@primeMS[n],{n,100}]]

A326840 Denominator of A056239(n)/A061395(n).

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, Jul 26 2019

This is a dual form of the average of an integer partition specified by its Heinz number: A326567/A326568.

			The sequence of fractions begins: 0, 1, 1, 2, 1, 3/2, 1, 3, 2, 4/3, 1, 2, 1, 5/4, 5/3, 4, 1, 5/2, 1, 5/3.

Positions of 1's are A326836.
Numerators are A326839.
Cf. A001222, A047993, A056239, A061395, A112798, A316413.
Cf. A326567/A326568, A326836, A326845, A326848, A326850.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Denominator[Table[Total[primeMS[n]]/Max@@primeMS[n],{n,100}]]

A340856 Squarefree numbers whose greatest prime index (A061395) is divisible by their number of prime factors (A001222).

Original entry on oeis.org

2, 3, 5, 6, 7, 11, 13, 14, 17, 19, 21, 23, 26, 29, 30, 31, 35, 37, 38, 39, 41, 43, 47, 53, 57, 58, 59, 61, 65, 67, 71, 73, 74, 78, 79, 83, 86, 87, 89, 91, 95, 97, 101, 103, 106, 107, 109, 111, 113, 122, 127, 129, 130, 131, 133, 137, 138, 139, 142, 143, 145

Offset: 1

Gus Wiseman, Feb 05 2021

nonn

Also Heinz numbers of strict integer partitions whose greatest part is divisible by their number of parts. These partitions are counted by A340828.

			The sequence of terms together with their prime indices begins:
      2: {1}         31: {11}       71: {20}
      3: {2}         35: {3,4}      73: {21}
      5: {3}         37: {12}       74: {1,12}
      6: {1,2}       38: {1,8}      78: {1,2,6}
      7: {4}         39: {2,6}      79: {22}
     11: {5}         41: {13}       83: {23}
     13: {6}         43: {14}       86: {1,14}
     14: {1,4}       47: {15}       87: {2,10}
     17: {7}         53: {16}       89: {24}
     19: {8}         57: {2,8}      91: {4,6}
     21: {2,4}       58: {1,10}     95: {3,8}
     23: {9}         59: {17}       97: {25}
     26: {1,6}       61: {18}      101: {26}
     29: {10}        65: {3,6}     103: {27}
     30: {1,2,3}     67: {19}      106: {1,16}

Note: Heinz number sequences are given in parentheses below.
The case of equality, and the reciprocal version, are both A002110.
The non-strict reciprocal version is A168659 (A340609).
The non-strict version is A168659 (A340610).
These are the Heinz numbers of partitions counted by A340828.
A001222 counts prime factors.
A006141 counts partitions whose length equals their minimum (A324522).
A056239 adds up the prime indices.
A061395 selects the maximum prime index.
A067538 counts partitions whose length divides their sum (A316413/A326836).
A112798 lists the prime indices of each positive integer.
A200750 counts partitions with length coprime to maximum (A340608).
A257541 gives the rank of the partition with Heinz number n.
A340830 counts strict partitions whose parts are multiples of the length.
Cf. A039900, A047993 (A106529), A064174, A143773 (A316428), A326837, A326849 (A326848), A340599, A340691.

Select[Range[2,100],SquareFreeQ[#]&&Divisible[PrimePi[FactorInteger[#][[-1,1]]],PrimeOmega[#]]&]

cp's OEIS Frontend

A326837 Heinz numbers of integer partitions whose length and maximum both divide their sum.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

A340610 Numbers whose number of prime factors (A001222) divides their greatest prime index (A061395).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

A326844 Let y be the integer partition with Heinz number n. Then a(n) is the size of the complement, in the minimal rectangular partition containing the Young diagram of y, of the Young diagram of y.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A340609 Numbers whose number of prime factors (A001222) is divisible by their greatest prime index (A061395).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

A326849 Number of integer partitions of n whose length times maximum is a multiple of n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A340608 The number of prime factors of n (A001222) is relatively prime to the maximum prime index of n (A061395).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

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

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

Formula