A332642 -id:A332642 - cp's OEIS frontend

A332725 Heinz numbers of integer partitions whose negated first differences are not unimodal.

90, 126, 180, 198, 234, 252, 270, 306, 342, 350, 360, 378, 396, 414, 450, 468, 504, 522, 525, 540, 550, 558, 594, 612, 630, 650, 666, 684, 700, 702, 720, 738, 756, 774, 792, 810, 825, 828, 846, 850, 882, 900, 910, 918, 936, 950, 954, 975, 990, 1008, 1026, 1044

Offset: 1

Gus Wiseman, Feb 26 2020

nonn

A sequence of positive integers is unimodal if it is the concatenation of a weakly increasing and a weakly decreasing sequence.

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

			The sequence of terms together with their prime indices begins:
    90: {1,2,2,3}
   126: {1,2,2,4}
   180: {1,1,2,2,3}
   198: {1,2,2,5}
   234: {1,2,2,6}
   252: {1,1,2,2,4}
   270: {1,2,2,2,3}
   306: {1,2,2,7}
   342: {1,2,2,8}
   350: {1,3,3,4}
   360: {1,1,1,2,2,3}
   378: {1,2,2,2,4}
   396: {1,1,2,2,5}
   414: {1,2,2,9}
   450: {1,2,2,3,3}
   468: {1,1,2,2,6}
   504: {1,1,1,2,2,4}
   522: {1,2,2,10}
   525: {2,3,3,4}
   540: {1,1,2,2,2,3}
For example, 350 is the Heinz number of (4,3,3,1), with negated first differences (1,0,2), which is not unimodal, so 350 is in the sequence.

MathWorld, Unimodal Sequence
Gus Wiseman, Sequences counting and ranking integer partitions by the differences of their successive parts.

The complement is too full.
The enumeration of these partitions by sum is A332284.
The version where the last part is taken to be 0 is A332832.
Non-unimodal permutations are A059204.
Non-unimodal compositions are A115981.
Non-unimodal normal sequences are A328509.
Partitions with non-unimodal run-lengths are A332281.
Heinz numbers of partitions with non-unimodal run-lengths are A332282.
Heinz numbers of partitions with weakly increasing differences are A325360.
Cf. A001523, A007052, A240026, A332280, A332283, A332285, A332286, A332288, A332294, A332579, A332639, A332642.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
unimodQ[q_]:=Or[Length[q]<=1,If[q[[1]]<=q[[2]],unimodQ[Rest[q]],OrderedQ[Reverse[q]]]];
Select[Range[1000],!unimodQ[Differences[primeMS[#]]]&]

A333145 Number of unimodal negated permutations of the multiset of prime indices of n.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, Mar 09 2020

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.
A sequence of integers is unimodal if it is the concatenation of a weakly increasing and a weakly decreasing sequence.
Also permutations of the multiset of prime indices of n avoiding the patterns (1,2,1), (1,3,2), and (2,3,1).
Also the number divisors of n not divisible by the least prime factor of n. The other divisors are counted by A069157. - Gus Wiseman, Apr 12 2022

			The a(n) permutations for n = 2, 6, 18, 30, 90, 162, 210, 450:
  (1)  (12)  (122)  (123)  (1223)  (12222)  (1234)  (12233)
       (21)  (212)  (213)  (2123)  (21222)  (2134)  (21233)
             (221)  (312)  (2213)  (22122)  (3124)  (22133)
                    (321)  (3122)  (22212)  (3214)  (31223)
                           (3212)  (22221)  (4123)  (32123)
                           (3221)           (4213)  (32213)
                                            (4312)  (33122)
                                            (4321)  (33212)
                                                    (33221)

Eric Weisstein's World of Mathematics, Unimodal Sequence
Wikipedia, Permutation pattern

Dominated by A008480.
The complementary divisors are counted by A069157.
The non-negated version is A332288.
A more interesting version is A332741.
The complement is counted by A333146.
A001523 counts unimodal compositions.
A007052 counts unimodal normal sequences.
A028233 gives the highest power of the least prime factor, quotient A028234.
A332578 counts compositions whose negation is unimodal.
A332638 counts partitions with unimodal negated run-lengths.
A332642 lists numbers with non-unimodal negated unsorted prime signature.
Cf. A056239, A112798, A115981, A124010, A328509, A332283, A332294, A332639, A332669, A332670, A332671.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
unimodQ[q_]:=Or[Length[q]<=1,If[q[[1]]<=q[[2]],unimodQ[Rest[q]],OrderedQ[Reverse[q]]]];
Table[Length[Select[Permutations[primeMS[n]],unimodQ[-#]&]],{n,30}]

a(n) + A333146(n) = A008480(n).
a(n) = A000005(A028234(n)). - Gus Wiseman, Apr 14 2022
a(n) = A000005(n) - A069157(n). - Gus Wiseman, Apr 14 2022

A335375 Numbers k such that the k-th composition in standard order (A066099) is neither unimodal nor co-unimodal.

Original entry on oeis.org

45, 54, 77, 89, 91, 93, 102, 108, 109, 110, 118, 141, 153, 155, 157, 166, 173, 177, 178, 179, 181, 182, 183, 185, 187, 189, 198, 204, 205, 206, 214, 216, 217, 218, 219, 220, 221, 222, 230, 236, 237, 238, 246, 269, 281, 283, 285, 297, 301, 305, 306, 307, 309

Offset: 1

Gus Wiseman, Jun 04 2020

nonn

A sequence of integers is unimodal if it is the concatenation of a weakly increasing and a weakly decreasing sequence. It is co-unimodal if its negation is unimodal.

The k-th composition in standard order (graded reverse-lexicographic, A066099) is obtained by taking the set of positions of 1's in the reversed binary expansion of k, prepending 0, taking first differences, and reversing again. This gives a bijective correspondence between nonnegative integers and integer compositions.

			The sequence together with the corresponding compositions begins:
   45: (2,1,2,1)
   54: (1,2,1,2)
   77: (3,1,2,1)
   89: (2,1,3,1)
   91: (2,1,2,1,1)
   93: (2,1,1,2,1)
  102: (1,3,1,2)
  108: (1,2,1,3)
  109: (1,2,1,2,1)
  110: (1,2,1,1,2)
  118: (1,1,2,1,2)
  141: (4,1,2,1)
  153: (3,1,3,1)
  155: (3,1,2,1,1)
  157: (3,1,1,2,1)
  166: (2,3,1,2)
  173: (2,2,1,2,1)
  177: (2,1,4,1)
  178: (2,1,3,2)
  179: (2,1,3,1,1)

Non-unimodal compositions are ranked by A335373.
Non-co-unimodal compositions are ranked by A335374.
Unimodal compositions are A001523.
Unimodal normal sequences are A007052.
Unimodal permutations are A011782.
Non-unimodal permutations are A059204.
Non-unimodal compositions are A115981.
Non-unimodal normal sequences are A328509.
Numbers with non-unimodal unsorted prime signature are A332282.
Co-unimodal compositions are A332578.
Numbers with non-co-unimodal unsorted prime signature are A332642.
Non-co-unimodal compositions are A332669.
Cf. A000120, A029931, A048793, A066099, A070939, A334299.
Cf. A112798, A227038, A329398, A332281, A332286, A332287, A332638, A332639, A332643, A332670, A332873, A333146.

unimodQ[q_]:=Or[Length[q]<=1,If[q[[1]]<=q[[2]],unimodQ[Rest[q]],OrderedQ[Reverse[q]]]];
stc[n_]:=Differences[Prepend[Join@@Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
Select[Range[0,100],!unimodQ[stc[#]]&&!unimodQ[-stc[#]]&]

cp's OEIS Frontend

A332725 Heinz numbers of integer partitions whose negated first differences are not unimodal.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A333145 Number of unimodal negated permutations of the multiset of prime indices of n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A335375 Numbers k such that the k-th composition in standard order (A066099) is neither unimodal nor co-unimodal.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica