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 21-30 of 31 results. Next

A332746 Number of integer partitions of n such that either the run-lengths or the negated run-lengths are unimodal.

Original entry on oeis.org

1, 1, 2, 3, 5, 7, 11, 15, 22, 30, 42, 56, 77, 101, 134, 174, 227, 291, 373, 473, 598, 748, 936, 1163, 1437, 1771, 2170, 2651, 3226, 3916, 4727, 5702, 6846, 8205, 9793, 11681, 13866, 16462, 19452, 22976, 27041, 31820, 37276, 43693, 51023, 59559, 69309, 80664
Offset: 0

Views

Author

Gus Wiseman, Feb 27 2020

Keywords

Comments

First differs from A000041 at a(14) = 134, A000041(14) = 135.
A sequence of positive integers is unimodal if it is the concatenation of a weakly increasing and a weakly decreasing sequence.

Examples

			The only partition not counted under a(14) = 134 is (4,3,3,2,1,1), whose run-lengths (1,2,1,2) are neither unimodal nor is their negation.
		

Crossrefs

Looking only at the original run-lengths gives A332281.
Looking only at the negated run-lengths gives A332639.
The complement is counted by A332640.
The Heinz numbers of partitions not in this class are A332643.
Unimodal compositions are A001523.
Partitions with unimodal run-lengths are A332280.
Compositions whose negation is unimodal are A332578.
Partitions whose negated run-lengths are unimodal are A332638.
Run-lengths are neither weakly increasing nor weakly decreasing: A332641.
Run-lengths and negated run-lengths are both unimodal: A332745.

Programs

  • Mathematica
    unimodQ[q_]:=Or[Length[q]<=1,If[q[[1]]<=q[[2]],unimodQ[Rest[q]],OrderedQ[Reverse[q]]]]
    Table[Length[Select[IntegerPartitions[n],unimodQ[Length/@Split[#]]||unimodQ[-Length/@Split[#]]&]],{n,0,30}]

A332643 Neither the unsorted prime signature of a(n) nor the negated unsorted prime signature of a(n) is unimodal.

Original entry on oeis.org

2100, 3300, 3900, 4200, 4410, 5100, 5700, 6468, 6600, 6900, 7644, 7800, 8400, 8700, 9300, 9996, 10200, 10500, 10780, 10890, 11100, 11172, 11400, 12300, 12740, 12900, 12936, 13200, 13230, 13524, 13800, 14100, 15210, 15246, 15288, 15600, 15900, 16500, 16660
Offset: 1

Views

Author

Gus Wiseman, Feb 28 2020

Keywords

Comments

A sequence of positive integers is unimodal if it is the concatenation of a weakly increasing and a weakly decreasing sequence.
A number's prime signature (row n of A124010) is the sequence of positive exponents in its prime factorization.

Examples

			The sequence of terms together with their prime indices begins:
   2100: {1,1,2,3,3,4}
   3300: {1,1,2,3,3,5}
   3900: {1,1,2,3,3,6}
   4200: {1,1,1,2,3,3,4}
   4410: {1,2,2,3,4,4}
   5100: {1,1,2,3,3,7}
   5700: {1,1,2,3,3,8}
   6468: {1,1,2,4,4,5}
   6600: {1,1,1,2,3,3,5}
   6900: {1,1,2,3,3,9}
   7644: {1,1,2,4,4,6}
   7800: {1,1,1,2,3,3,6}
   8400: {1,1,1,1,2,3,3,4}
   8700: {1,1,2,3,3,10}
   9300: {1,1,2,3,3,11}
   9996: {1,1,2,4,4,7}
  10200: {1,1,1,2,3,3,7}
  10500: {1,1,2,3,3,3,4}
  10780: {1,1,3,4,4,5}
  10890: {1,2,2,3,5,5}
		

Crossrefs

Not requiring non-unimodal negation gives A332282.
These are the Heinz numbers of the partitions counted by A332640.
Not requiring non-unimodality gives A332642.
The case of compositions is A332870.
Unimodal compositions are A001523.
Non-unimodal permutations are A059204.
Non-unimodal compositions are A115981.
Unsorted prime signature is A124010.
Non-unimodal normal sequences are A328509.
Partitions whose 0-appended first differences are unimodal are A332283, with Heinz numbers the complement of A332287.
Compositions whose negation is unimodal are A332578.
Compositions whose negation is not unimodal are A332669.
Partitions whose 0-appended first differences are not unimodal are A332744, with Heinz numbers A332832.
Numbers whose signature is neither increasing nor decreasing are A332831.

Programs

  • Mathematica
    unimodQ[q_]:=Or[Length[q]<=1,If[q[[1]]<=q[[2]],unimodQ[Rest[q]],OrderedQ[Reverse[q]]]]
    Select[Range[10000],!unimodQ[Last/@FactorInteger[#]]&&!unimodQ[-Last/@FactorInteger[#]]&]

Formula

Intersection of A332282 and A332642.

A332728 Number of integer partitions of n whose negated first differences (assuming the last part is zero) are unimodal.

Original entry on oeis.org

1, 1, 2, 3, 4, 5, 7, 8, 10, 13, 14, 17, 22, 24, 28, 34, 37, 43, 53, 56, 64, 76, 83, 93, 111, 117, 131, 153, 163, 182, 210, 225, 250, 284, 304, 332, 377, 401, 441, 497, 529, 576, 647, 687, 745, 830, 883, 955, 1062, 1127, 1216, 1339, 1422, 1532, 1684, 1779, 1914
Offset: 0

Views

Author

Gus Wiseman, Feb 26 2020

Keywords

Comments

First differs from A000041 at a(6) = 10, A000041(6) = 11.
A sequence of positive integers is unimodal if it is the concatenation of a weakly increasing and a weakly decreasing sequence.

Examples

			The a(1) = 1 through a(8) = 10 partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)        (8)
       (11)  (21)   (22)    (32)     (33)      (43)       (44)
             (111)  (31)    (41)     (42)      (52)       (53)
                    (1111)  (221)    (51)      (61)       (62)
                            (11111)  (222)     (331)      (71)
                                     (321)     (421)      (332)
                                     (111111)  (2221)     (431)
                                               (1111111)  (521)
                                                          (2222)
                                                          (11111111)
		

Crossrefs

The non-negated version is A332283.
The non-negated complement is counted by A332284.
The strict case is A332577.
The case of run-lengths (instead of differences) is A332638.
The complement is counted by A332744.
The Heinz numbers of partitions not in this class are A332287.
Unimodal compositions are A001523.
Compositions whose negation is unimodal are A332578.
Compositions whose run-lengths are unimodal are A332726.

Programs

  • Mathematica
    unimodQ[q_]:=Or[Length[q]<=1,If[q[[1]]<=q[[2]],unimodQ[Rest[q]],OrderedQ[Reverse[q]]]];
    Table[Length[Select[IntegerPartitions[n],unimodQ[-Differences[Append[#,0]]]&]],{n,0,30}]

A332741 Number of unimodal negated permutations of a multiset whose multiplicities are the prime indices of n.

Original entry on oeis.org

1, 1, 1, 2, 1, 2, 1, 4, 3, 2, 1, 4, 1, 2, 3, 8, 1, 6, 1, 4, 3, 2, 1, 8, 4, 2, 9, 4, 1, 6, 1, 16, 3, 2, 4, 12, 1, 2, 3, 8, 1, 6, 1, 4, 9, 2, 1, 16, 5, 8, 3, 4, 1, 18, 4, 8, 3, 2, 1, 12, 1, 2, 9, 32, 4, 6, 1, 4, 3, 8, 1, 24, 1, 2, 12, 4, 5, 6, 1, 16, 27, 2, 1
Offset: 1

Views

Author

Gus Wiseman, Mar 09 2020

Keywords

Comments

This multiset is generally not the same as the multiset of prime indices of n. For example, the prime indices of 12 are {1,1,2}, while a multiset whose multiplicities are {1,1,2} is {1,1,2,3}.
A sequence of positive integers is unimodal if it is the concatenation of a weakly increasing and a weakly decreasing sequence.

Examples

			The a(12) = 4 permutations:
  {1,1,2,3}
  {2,1,1,3}
  {3,1,1,2}
  {3,2,1,1}
		

Crossrefs

Dominated by A318762.
The non-negated version is A332294.
The complement is counted by A332742.
A less interesting version is A333145.
Unimodal compositions are A001523.
Unimodal normal sequences are A007052.
Numbers with non-unimodal negated prime signature are A332642.
Partitions whose 0-appended first differences are unimodal are A332283.
Compositions whose negation is unimodal are A332578.
Partitions with unimodal negated run-lengths are A332638.

Programs

  • Mathematica
    nrmptn[n_]:=Join@@MapIndexed[Table[#2[[1]],{#1}]&,If[n==1,{},Flatten[Cases[FactorInteger[n]//Reverse,{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[nrmptn[n]],unimodQ[-#]&]],{n,30}]

Formula

a(n) + A332742(n) = A318762(n).

A332744 Number of integer partitions of n whose negated first differences (assuming the last part is zero) are not unimodal.

Original entry on oeis.org

0, 0, 0, 0, 1, 2, 4, 7, 12, 17, 28, 39, 55, 77, 107, 142, 194, 254, 332, 434, 563, 716, 919, 1162, 1464, 1841, 2305, 2857, 3555, 4383, 5394, 6617, 8099, 9859, 12006, 14551, 17600, 21236, 25574, 30688, 36809, 44007, 52527, 62574, 74430, 88304, 104675, 123799
Offset: 0

Views

Author

Gus Wiseman, Feb 27 2020

Keywords

Comments

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

Examples

			The a(4) = 1 through a(9) = 17 partitions:
  (211)  (311)   (411)    (322)     (422)      (522)
         (2111)  (2211)   (511)     (611)      (711)
                 (3111)   (3211)    (3221)     (3222)
                 (21111)  (4111)    (3311)     (4221)
                          (22111)   (4211)     (4311)
                          (31111)   (5111)     (5211)
                          (211111)  (22211)    (6111)
                                    (32111)    (32211)
                                    (41111)    (33111)
                                    (221111)   (42111)
                                    (311111)   (51111)
                                    (2111111)  (222111)
                                               (321111)
                                               (411111)
                                               (2211111)
                                               (3111111)
                                               (21111111)
For example, the partition y = (4,2,1,1,1) has negated 0-appended first differences (2,1,0,0,1), which is not unimodal, so y is counted under a(9).
		

Crossrefs

The complement is counted by A332728.
The non-negated version is A332284.
The strict case is A332579.
The case of run-lengths (instead of differences) is A332639.
The Heinz numbers of these partitions are A332832.
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.
Numbers whose negated prime signature is not unimodal are A332642.
Compositions whose negation is not unimodal are A332669.

Programs

  • Mathematica
    unimodQ[q_]:=Or[Length[q]<=1,If[q[[1]]<=q[[2]],unimodQ[Rest[q]],OrderedQ[Reverse[q]]]];
    Table[Length[Select[IntegerPartitions[n],!unimodQ[-Differences[Append[#,0]]]&]],{n,0,30}]

A332872 Number of ordered set partitions of {1..n} where no element of any block is greater than any element of a non-adjacent consecutive block.

Original entry on oeis.org

1, 1, 3, 10, 34, 116, 396, 1352, 4616, 15760
Offset: 0

Views

Author

Gus Wiseman, Mar 06 2020

Keywords

Comments

After initial terms, first differs from A291292 at a(7) = 1352, A291292(8) = 1353.
Conjectured to be the same as A007052, shifted right once.

Examples

			The a(1) = 1 through a(3) = 10 ordered set partitions:
  {{1}}  {{1,2}}    {{1,2,3}}
         {{1},{2}}  {{1},{2,3}}
         {{2},{1}}  {{1,2},{3}}
                    {{1,3},{2}}
                    {{2},{1,3}}
                    {{2,3},{1}}
                    {{3},{1,2}}
                    {{1},{2},{3}}
                    {{1},{3},{2}}
                    {{2},{1},{3}}
		

Crossrefs

Row sums of A332673.
Set partitions are A000110.
Ordered set-partitions are A000670.
Unimodal sequences covering an initial interval are A007052.

Programs

  • Mathematica
    sps[{}]:={{}};sps[set:{i_,_}]:=Join@@Function[s,Prepend[#,s]&/@sps[Complement[set,s]]]/@Cases[Subsets[set],{i,_}];
    Table[Length[Select[Join@@Permutations/@sps[Range[n]],!MatchQ[#,{_,{_,a_,_},,{_,b_,_},_}/;a>b]&]],{n,0,5}]

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.
		

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.

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

A332673 Triangle read by rows where T(n,k) is the number of length-k ordered set partitions of {1..n} whose non-adjacent blocks are pairwise increasing.

Original entry on oeis.org

1, 0, 1, 0, 1, 2, 0, 1, 6, 3, 0, 1, 14, 14, 5, 0, 1, 30, 45, 32, 8, 0, 1, 62, 124, 131, 65, 13, 0, 1, 126, 315, 438, 323, 128, 21, 0, 1, 254, 762, 1305, 1270, 747, 243, 34, 0, 1, 510, 1785, 3612, 4346, 3370, 1629, 452, 55
Offset: 0

Views

Author

Gus Wiseman, Mar 02 2020

Keywords

Comments

In other words, parts of subsequent, non-successive blocks are increasing.

Examples

			Triangle begins:
    1
    0    1
    0    1    2
    0    1    6    3
    0    1   14   14    5
    0    1   30   45   32    8
    0    1   62  124  131   65   13
    0    1  126  315  438  323  128   21
    0    1  254  762 1305 1270  747  243   34
    ...
Row n = 4 counts the following ordered set partitions:
  {1234}  {1}{234}  {1}{2}{34}  {1}{2}{3}{4}
          {12}{34}  {1}{23}{4}  {1}{2}{4}{3}
          {123}{4}  {12}{3}{4}  {1}{3}{2}{4}
          {124}{3}  {1}{24}{3}  {2}{1}{3}{4}
          {13}{24}  {12}{4}{3}  {2}{1}{4}{3}
          {134}{2}  {1}{3}{24}
          {14}{23}  {13}{2}{4}
          {2}{134}  {1}{34}{2}
          {23}{14}  {1}{4}{23}
          {234}{1}  {2}{1}{34}
          {24}{13}  {2}{13}{4}
          {3}{124}  {2}{14}{3}
          {34}{12}  {23}{1}{4}
          {4}{123}  {3}{12}{4}
		

Crossrefs

An apparently related triangle is A056242.
Column k = n - 1 is A332724.
Row sums are A332872, which appears to be A007052 shifted right once.
Ordered set-partitions are A000670.
Unimodal compositions are A001523.
Non-unimodal normal sequences are A328509.

Programs

  • Mathematica
    sps[{}]:={{}};sps[set:{i_,_}]:=Join@@Function[s,Prepend[#,s]&/@sps[Complement[set,s]]]/@Cases[Subsets[set],{i,_}];
    Table[Length[Select[Join@@Permutations/@sps[Range[n]],Length[#]==k&&!MatchQ[#,{_,{_,a_,_},,{_,b_,_},_}/;a>b]&]],{n,0,5},{k,0,n}]

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)
		

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.

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

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

Original entry on oeis.org

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

Views

Author

Gus Wiseman, Feb 26 2020

Keywords

Comments

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.

Examples

			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.
		

Crossrefs

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.

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[1000],!unimodQ[Differences[primeMS[#]]]&]
Previous Showing 21-30 of 31 results. Next