cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Previous Showing 11-15 of 15 results.

A332832 Heinz numbers of integer partitions whose negated first differences (assuming the last part is zero) are not unimodal.

Original entry on oeis.org

12, 20, 24, 28, 36, 40, 44, 45, 48, 52, 56, 60, 63, 68, 72, 76, 80, 84, 88, 90, 92, 96, 99, 100, 104, 108, 112, 116, 117, 120, 124, 126, 132, 135, 136, 140, 144, 148, 152, 153, 156, 160, 164, 165, 168, 171, 172, 175, 176, 180, 184, 188, 189, 192, 195, 196, 198
Offset: 1

Views

Author

Gus Wiseman, Mar 02 2020

Keywords

Comments

First differs from A065201 in having 165.
First differs from A316597 in having 36.
A sequence of 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.

Examples

			The sequence of terms together with their prime indices begins:
   12: {1,1,2}
   20: {1,1,3}
   24: {1,1,1,2}
   28: {1,1,4}
   36: {1,1,2,2}
   40: {1,1,1,3}
   44: {1,1,5}
   45: {2,2,3}
   48: {1,1,1,1,2}
   52: {1,1,6}
   56: {1,1,1,4}
   60: {1,1,2,3}
   63: {2,2,4}
   68: {1,1,7}
   72: {1,1,1,2,2}
   76: {1,1,8}
   80: {1,1,1,1,3}
   84: {1,1,2,4}
   88: {1,1,1,5}
   90: {1,2,2,3}
For example, 60 is the Heinz number of (3,2,1,1), with negated 0-appended first-differences (1,1,0,1), which are not unimodal, so 60 is in the sequence.

Links

Crossrefs

The non-negated version is A332287.
The version for of run-lengths (instead of differences) is A332642.
The enumeration of these partitions by sum is A332744.
Unimodal compositions are A001523.
Non-unimodal compositions are A115981.
Heinz numbers of partitions with non-unimodal run-lengths are A332282.
Partitions whose 0-appended first differences are unimodal are A332283.
Compositions whose negation is unimodal are A332578.
Compositions whose negation is not unimodal are A332669.
Cf. A059204, A227038, A332284, A332285, A332286, A332578, A332638, A332639, A332670, A332725, A332728.

Programs

  • Mathematica
    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[100],!unimodQ[Differences[Prepend[primeMS[#],0]]]&]

A333146 Number of non-unimodal negated permutations of the multiset of prime indices of n.

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 2, 0, 0, 0, 1, 0, 2, 0, 0, 0, 0, 0, 3, 0, 0, 0, 2, 0, 2, 0, 1, 1, 0, 0, 3, 0, 0, 0, 1, 0, 0, 0, 2, 0, 0, 0, 8, 0, 0, 1, 0, 0, 2, 0, 1, 0, 2, 0, 7, 0, 0, 0, 1, 0, 2, 0, 3, 0, 0, 0, 8, 0, 0, 0
Offset: 1

Views

Author

Gus Wiseman, Mar 09 2020

Keywords

Comments

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.

Examples

			The a(n) permutations for n = 12, 24, 36, 60, 72, 90, 96:
  (121)  (1121)  (1212)  (1132)  (11212)  (1232)  (111121)
         (1211)  (1221)  (1213)  (11221)  (1322)  (111211)
                 (2121)  (1231)  (12112)  (2132)  (112111)
                         (1312)  (12121)  (2231)  (121111)
                         (1321)  (12211)  (2312)
                         (2131)  (21121)  (2321)
                         (2311)  (21211)
                         (3121)

Links

Crossrefs

Dominated by A008480.
The non-negated version is A332671.
A more interesting version is A332742.
The complement is counted by A333145.
Unimodal compositions are A001523.
Unimodal normal sequences are A007052.
Compositions whose negation is unimodal are A332578.
Partitions with unimodal negated run-lengths are A332638.
Numbers with non-unimodal negated unsorted prime signature are A332642.
Cf. A056239, A112798, A115981, A124010, A328509, A332283, A332288, A332294, A332639, A332669, A332670, A332741.

Programs

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

Formula

a(n) + A333145(n) = A008480(n).

A335374 Numbers k such that the k-th composition in standard order (A066099) is not co-unimodal.

Original entry on oeis.org

13, 25, 27, 29, 41, 45, 49, 50, 51, 53, 54, 55, 57, 59, 61, 77, 81, 82, 83, 89, 91, 93, 97, 98, 99, 101, 102, 103, 105, 107, 108, 109, 110, 111, 113, 114, 115, 117, 118, 119, 121, 123, 125, 141, 145, 153, 155, 157, 161, 162, 163, 165, 166, 167, 169, 173, 177
Offset: 1

Views

Author

Gus Wiseman, Jun 03 2020

Keywords

Comments

A sequence of integers is co-unimodal if it is the concatenation of a weakly decreasing and a weakly increasing sequence, implying that 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.

Examples

			The sequence together with the corresponding compositions begins:
  13: (1,2,1)
  25: (1,3,1)
  27: (1,2,1,1)
  29: (1,1,2,1)
  41: (2,3,1)
  45: (2,1,2,1)
  49: (1,4,1)
  50: (1,3,2)
  51: (1,3,1,1)
  53: (1,2,2,1)
  54: (1,2,1,2)
  55: (1,2,1,1,1)
  57: (1,1,3,1)
  59: (1,1,2,1,1)
  61: (1,1,1,2,1)
  77: (3,1,2,1)
  81: (2,4,1)
  82: (2,3,2)
  83: (2,3,1,1)
  89: (2,1,3,1)

Crossrefs

This is the dual version of A335373.
The case that is not unimodal either is A335375.
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.

Programs

  • Mathematica
    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[#]]&]

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

Views

Author

Gus Wiseman, Mar 09 2020

Keywords

Comments

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

Examples

			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)

Links

Crossrefs

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.

Programs

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

Formula

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

Views

Author

Gus Wiseman, Jun 04 2020

Keywords

Comments

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.

Examples

			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)

Crossrefs

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.

Programs

  • Mathematica
    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[#]]&]
Previous Showing 11-15 of 15 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.