A325372 -id:A325372 - cp's OEIS frontend

A325326 Heinz numbers of integer partitions covering an initial interval of positive integers with distinct multiplicities.

1, 2, 4, 8, 12, 16, 18, 24, 32, 48, 54, 64, 72, 96, 108, 128, 144, 162, 192, 256, 288, 324, 360, 384, 432, 486, 512, 540, 576, 600, 648, 720, 768, 864, 972, 1024, 1152, 1200, 1350, 1440, 1458, 1500, 1536, 1620, 1728, 1944, 2048, 2160, 2250, 2304, 2400, 2592

Offset: 1

Gus Wiseman, May 01 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 A320348.

			The sequence of terms together with their prime indices begins:
     1: {}
     2: {1}
     4: {1,1}
     8: {1,1,1}
    12: {1,1,2}
    16: {1,1,1,1}
    18: {1,2,2}
    24: {1,1,1,2}
    32: {1,1,1,1,1}
    48: {1,1,1,1,2}
    54: {1,2,2,2}
    64: {1,1,1,1,1,1}
    72: {1,1,1,2,2}
    96: {1,1,1,1,1,2}
   108: {1,1,2,2,2}
   128: {1,1,1,1,1,1,1}
   144: {1,1,1,1,2,2}
   162: {1,2,2,2,2}
   192: {1,1,1,1,1,1,2}
   256: {1,1,1,1,1,1,1,1}
   288: {1,1,1,1,1,2,2}
   324: {1,1,2,2,2,2}
   360: {1,1,1,2,2,3}
   384: {1,1,1,1,1,1,1,2}

Cf. A000837, A047966, A055932, A056239, A098859, A112798, A130091, A317081, A317089, A320348, A325329, A325337, A325369, A325372.

normQ[n_Integer]:=n==1||PrimePi/@First/@FactorInteger[n]==Range[PrimeNu[n]];
Select[Range[100],normQ[#]&&UnsameQ@@Last/@FactorInteger[#]&]

Intersection of normal numbers (A055932) and numbers with distinct prime exponents (A130091).

A325336 Triangle read by rows where T(n,k) is the number of integer partitions of n with adjusted frequency depth k whose parts cover an initial interval of positive integers.

Original entry on oeis.org

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

Offset: 0

Gus Wiseman, May 01 2019

The adjusted frequency depth of an integer partition (A325280) is 0 if the partition is empty, and otherwise it is 1 plus the number of times one must take the multiset of multiplicities to reach a singleton. For example, the partition (32211) has adjusted frequency depth 5 because we have: (32211) -> (221) -> (21) -> (11) -> (2).

			Triangle begins:
  1
  0  1
  0  0  1
  0  0  1  1
  0  0  1  0  1
  0  0  1  0  2  0
  0  0  1  2  1  0  0
  0  0  1  0  3  1  0  0
  0  0  1  0  3  2  0  0  0
  0  0  1  1  3  3  0  0  0  0
  0  0  1  1  5  3  0  0  0  0  0
  0  0  1  0  8  3  0  0  0  0  0  0
  0  0  1  2  6  6  0  0  0  0  0  0  0
  0  0  1  0 13  4  0  0  0  0  0  0  0  0
  0  0  1  0 12  8  1  0  0  0  0  0  0  0  0
  0  0  1  2 14  7  3  0  0  0  0  0  0  0  0  0
  0  0  1  0 17 11  3  0  0  0  0  0  0  0  0  0  0
  0  0  1  0 22  7  8  0  0  0  0  0  0  0  0  0  0  0
  0  0  1  2 17 16 10  0  0  0  0  0  0  0  0  0  0  0  0
  0  0  1  0 28 10 15  0  0  0  0  0  0  0  0  0  0  0  0  0
  0  0  1  1 29 13 20  0  0  0  0  0  0  0  0  0  0  0  0  0  0
Row 15 counts the following partitions:
  111111111111111  54321       433221          333321        4322211
                   2222211111  443211          3332211       4332111
                               3322221         33222111      43221111
                               22222221        322221111
                               32222211        332211111
                               33321111        432111111
                               222222111       321111111111
                               3222111111
                               3321111111
                               22221111111
                               32211111111
                               222111111111
                               2211111111111
                               21111111111111

Andrew Howroyd, Table of n, a(n) for n = 0..1325 (rows 0..50)

Row sums are A000009.
Column k = 3 is A325334.
Column k = 4 is A325335.
Cf. A181819, A182850, A317246, A320348, A323014, A325280, A325372.

normQ[m_]:=Or[m=={},Union[m]==Range[Max[m]]];
fdadj[ptn_List]:=If[ptn=={},0,Length[NestWhileList[Sort[Length/@Split[#1]]&,ptn,Length[#1]>1&]]];
Table[Length[Select[IntegerPartitions[n],normQ[#]&&fdadj[#]==k&]],{n,0,30},{k,0,n}]

depth(p)={if(!#p, 0, my(r=1); while(#p > 1, my(L=List(), k=0); for(i=1, #p, if(i==#p||p[i]<>p[i+1], listput(L,i-k); k=i)); listsort(L); p=L; r++); r)}
isok(p)={if(#p, for(i=1, #p, if(p[i]-1 > if(i>1, p[i-1], 0), return(0)))); 1}
row(n)={my(v=vector(1+n)); forpart(p=n, if(isok(p), v[1+depth(Vec(p))]++)); v}
{ for(n=0, 10, print(row(n))) } \\ Andrew Howroyd, Jan 18 2023

A325332 Number of totally abnormal integer partitions of n.

Original entry on oeis.org

0, 0, 1, 1, 2, 1, 3, 1, 4, 2, 5, 1, 8, 1, 7, 5, 10, 2, 16, 4, 21, 15, 24, 17, 49, 29, 53, 53, 84, 65, 121, 92, 148, 141, 186, 179, 280, 223, 317, 318, 428, 387, 576, 512, 700, 734, 899, 900, 1260, 1207, 1551, 1668, 2041, 2109, 2748, 2795, 3463, 3775, 4446

Offset: 0

Gus Wiseman, May 01 2019

nonn

A multiset is normal if its union is an initial interval of positive integers. A multiset is totally abnormal if it is not normal and either it is a singleton or its multiplicities form a totally abnormal multiset.

The Heinz numbers of these partitions are given by A325372.

			The a(2) = 1 through a(12) = 8 totally abnormal partitions (A = 10, B = 11, C = 12):
  (2)  (3)  (4)   (5)  (6)    (7)  (8)     (9)    (A)      (B)   (C)
            (22)       (33)        (44)    (333)  (55)           (66)
                       (222)       (2222)         (3322)         (444)
                                   (3311)         (4411)         (3333)
                                                  (22222)        (4422)
                                                                 (5511)
                                                                 (222222)
                                                                 (333111)

Cf. A181819, A275870, A305563, A317088, A317245, A317491, A317589, A319149, A319810, A325372.

normQ[m_]:=Or[m=={},Union[m]==Range[Max[m]]];
antinrmQ[ptn_]:=!normQ[ptn]&&(Length[ptn]==1||antinrmQ[Sort[Length/@Split[ptn]]]);
Table[Length[Select[IntegerPartitions[n],antinrmQ]],{n,0,30}]

A325373 Composite totally abnormal numbers. Heinz numbers of non-singleton totally abnormal integer partitions.

Original entry on oeis.org

9, 25, 27, 49, 81, 100, 121, 125, 169, 196, 225, 243, 289, 343, 361, 441, 484, 529, 625, 676, 729, 841, 961, 1000, 1089, 1156, 1225, 1331, 1369, 1444, 1521, 1681, 1764, 1849, 2116, 2187, 2197, 2209, 2401, 2601, 2744, 2809, 3025, 3125, 3249, 3364, 3375, 3481

Offset: 1

Gus Wiseman, May 02 2019

nonn

The first term that is not a perfect power (A001597) is 11880, with prime indices {1,1,1,2,2,2,3,5} and prime signature {1,1,3,3}.
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. A number n is totally abnormal iff (1) the prime indices of n do not cover an initial interval of positive integers, and either (2a) n is prime, or (2b) the prime exponents (or prime signature) of n forms a totally abnormal integer partition, or, equivalently to (2b), A181819(n) is totally abnormal.
The enumeration of totally abnormal integer partitions by sum is given by A325332.

			The sequence of terms together with their prime indices begins:
     9: {2,2}
    25: {3,3}
    27: {2,2,2}
    49: {4,4}
    81: {2,2,2,2}
   100: {1,1,3,3}
   121: {5,5}
   125: {3,3,3}
   169: {6,6}
   196: {1,1,4,4}
   225: {2,2,3,3}
   243: {2,2,2,2,2}
   289: {7,7}
   343: {4,4,4}
   361: {8,8}
   441: {2,2,4,4}
   484: {1,1,5,5}
   529: {9,9}
   625: {3,3,3,3}
   676: {1,1,6,6}

Cf. A001597, A055932, A056239, A112798, A181819, A317089, A317090, A317246, A319152, A319810, A325332, A325370, A325372.

normQ[n_Integer]:=Or[n==1,PrimePi/@First/@FactorInteger[n]==Range[PrimeNu[n]]];
totabnQ[n_]:=And[!normQ[n],PrimeQ[n]||totabnQ[Times@@Prime/@Last/@If[n==1,{},FactorInteger[n]]]];
Select[Range[10000],!PrimeQ[#]&&totabnQ[#]&]

cp's OEIS Frontend

A325326 Heinz numbers of integer partitions covering an initial interval of positive integers with distinct multiplicities.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A325336 Triangle read by rows where T(n,k) is the number of integer partitions of n with adjusted frequency depth k whose parts cover an initial interval of positive integers.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

A325332 Number of totally abnormal integer partitions of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A325373 Composite totally abnormal numbers. Heinz numbers of non-singleton totally abnormal integer partitions.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica