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-28 of 28 results.

A335517 Number of matching pairs of patterns, the longest having length n.

Original entry on oeis.org

1, 2, 9, 64, 623, 7866, 122967
Offset: 0

Views

Author

Gus Wiseman, Jun 23 2020

Keywords

Comments

We define a pattern to be a finite sequence covering an initial interval of positive integers. Patterns are counted by A000670 and ranked by A333217. A sequence S is said to match a pattern P if there is a not necessarily contiguous subsequence of S whose parts have the same relative order as P. For example, (3,1,1,3) matches (1,1,2), (2,1,1), and (2,1,2), but avoids (1,2,1), (1,2,2), and (2,2,1).

Examples

			The a(0) = 1 through a(2) = 9 pairs of patterns:
  ()<=()    ()<=(1)      ()<=(1,1)
           (1)<=(1)      ()<=(1,2)
                         ()<=(2,1)
                        (1)<=(1,1)
                        (1)<=(1,2)
                        (1)<=(2,1)
                      (1,1)<=(1,1)
                      (1,2)<=(1,2)
                      (2,1)<=(2,1)
		

Crossrefs

Row sums of A335518.
Patterns are counted by A000670 and ranked by A333217.
Patterns matched by a standard composition are counted by A335454.
Patterns contiguously matched by compositions are counted by A335457.
Minimal patterns avoided by a standard composition are counted by A335465.
Patterns matched by prime indices are counted by A335549.

Programs

  • Mathematica
    mstype[q_]:=q/.Table[Union[q][[i]]->i,{i,Length[Union[q]]}];
    allnorm[n_]:=If[n<=0,{{}},Function[s,Array[Count[s,y_/;y<=#]+1&,n]]/@Subsets[Range[n-1]+1]];
    Table[Sum[Length[Union[mstype/@Subsets[y]]],{y,Join@@Permutations/@allnorm[n]}],{n,0,5}]

A335837 Number of normal patterns matched by integer partitions of n.

Original entry on oeis.org

1, 2, 5, 9, 18, 31, 54, 89, 146, 228, 358, 545, 821, 1219, 1795, 2596, 3741, 5323, 7521, 10534, 14659, 20232, 27788, 37897, 51410, 69347, 93111, 124348, 165378, 218924, 288646, 379021, 495864, 646272, 839490, 1086693, 1402268, 1803786, 2313498, 2958530, 3773093
Offset: 0

Views

Author

Gus Wiseman, Jun 27 2020

Keywords

Comments

We define a (normal) pattern to be a finite sequence covering an initial interval of positive integers. Patterns are counted by A000670 and ranked by A333217. A sequence S is said to match a pattern P if there is a not necessarily contiguous subsequence of S whose parts have the same relative order as P. For example, (3,1,1,3) matches (1,1,2), (2,1,1), and (2,1,2), but avoids (1,2,1), (1,2,2), and (2,2,1).

Examples

			The a(0) = 1 through a(4) = 18  pairs of a partition with a matched pattern:
  ()/()  (1)/()   (2)/()     (3)/()       (4)/()
         (1)/(1)  (2)/(1)    (3)/(1)      (4)/(1)
                  (11)/()    (21)/()      (31)/()
                  (11)/(1)   (21)/(1)     (31)/(1)
                  (11)/(11)  (21)/(21)    (31)/(21)
                             (111)/()     (22)/()
                             (111)/(1)    (22)/(1)
                             (111)/(11)   (22)/(11)
                             (111)/(111)  (211)/()
                                          (211)/(1)
                                          (211)/(11)
                                          (211)/(21)
                                          (211)/(211)
                                          (1111)/()
                                          (1111)/(1)
                                          (1111)/(11)
                                          (1111)/(111)
                                          (1111)/(1111)
		

Crossrefs

The version for compositions in standard order is A335454.
The version for compositions is A335456.
The version for Heinz numbers of partitions is A335549.
The contiguous case is A335838.
Patterns are counted by A000670 and ranked by A333217.
Patterns contiguously matched by prime indices are A335516.
Contiguous divisors are counted by A335519.
Minimal patterns avoided by prime indices are counted by A335550.

Programs

  • Mathematica
    mstype[q_]:=q/.Table[Union[q][[i]]->i,{i,Length[Union[q]]}];
    Table[Sum[Length[Union[mstype/@Subsets[y]]],{y,IntegerPartitions[n]}],{n,0,8}]
  • PARI
    lista(n) = {
      my(v=vector(n+1,i,1+x*O(x^n)));
      for(k=1,n,
        v=vector(n\(k+1)+1,i,
            (1-x^(i*k))/(1-x^k)*v[i] + sum(j=i,n\k,x^(j*k)*v[j+1]) +
            x^(k*i)/(1-x^k)^2*v[1] ) );
      Vec(v[1]) } \\ Christian Sievers, May 08 2025

Extensions

a(18) corrected by and a(19)-a(22) from Jinyuan Wang, Jun 27 2020
More terms from Christian Sievers, May 08 2025

A354581 Numbers k such that the k-th composition in standard order is rucksack, meaning every distinct partial run has a different sum.

Original entry on oeis.org

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 12, 13, 15, 16, 17, 18, 19, 20, 21, 22, 24, 25, 26, 28, 31, 32, 33, 34, 35, 36, 37, 38, 40, 41, 42, 44, 45, 48, 49, 50, 51, 52, 53, 54, 56, 57, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 76, 77, 80, 81, 82, 84, 85, 86, 88
Offset: 0

Views

Author

Gus Wiseman, Jun 15 2022

Keywords

Comments

We define a partial run of a sequence to be any contiguous constant subsequence.
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 term rucksack is short for run-knapsack.

Examples

			The terms together with their corresponding compositions begin:
   0: ()
   1: (1)
   2: (2)
   3: (1,1)
   4: (3)
   5: (2,1)
   6: (1,2)
   7: (1,1,1)
   8: (4)
   9: (3,1)
  10: (2,2)
  12: (1,3)
  13: (1,2,1)
  15: (1,1,1,1)
Missing are:
  11: (2,1,1)
  14: (1,1,2)
  23: (2,1,1,1)
  27: (1,2,1,1)
  29: (1,1,2,1)
  30: (1,1,1,2)
  39: (3,1,1,1)
  43: (2,2,1,1)
  46: (2,1,1,2)
		

Crossrefs

The version for binary indices is A000225.
Counting distinct sums of full runs gives A353849, partitions A353835.
For partitions we have A353866, counted by A353864, complement A354583.
These compositions are counted by A354580.
Counting distinct sums of partial runs gives A354907, partitions A353861.
A066099 lists all compositions in standard order.
A124767 counts runs in standard compositions.
A124771 counts distinct contiguous subsequences, non-contiguous A334299.
A238279 and A333755 count compositions by number of runs.
A351014 counts distinct runs in standard compositions, firsts A351015.
A353838 ranks partitions with all distinct run-sums, counted by A353837.
A353851 counts compositions with all equal run-sums, ranked by A353848.
A353852 ranks compositions with all distinct run-sums, counted by A353850.
A353853-A353859 pertain to composition run-sum trajectory.
A353932 lists run-sums of standard compositions, rows ranked by A353847.

Programs

  • Mathematica
    stc[n_]:=Differences[Prepend[Join@@ Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
    Select[Range[0,100],UnsameQ@@Total/@Union@@Subsets/@Split[stc[#]]&]

A354582 Number of distinct contiguous constant subsequences (or partial runs) in the k-th composition in standard order.

Original entry on oeis.org

0, 1, 1, 2, 1, 2, 2, 3, 1, 2, 2, 3, 2, 2, 3, 4, 1, 2, 2, 3, 2, 3, 2, 4, 2, 2, 3, 3, 3, 3, 4, 5, 1, 2, 2, 3, 2, 3, 3, 4, 2, 3, 3, 4, 3, 2, 3, 5, 2, 2, 3, 3, 3, 3, 2, 4, 3, 3, 4, 3, 4, 4, 5, 6, 1, 2, 2, 3, 2, 3, 3, 4, 2, 3, 3, 4, 2, 3, 4, 5, 2, 3, 2, 4, 3, 4, 3
Offset: 0

Views

Author

Gus Wiseman, Jun 13 2022

Keywords

Comments

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

			Composition number 981 in standard order is (1,1,1,2,2,2,1), with partial runs (1), (2), (1,1), (2,2), (1,1,1), (2,2,2), so a(981) = 6.
As a triangle:
  1
  1 2
  1 2 2 3
  1 2 2 3 2 2 3 4
  1 2 2 3 2 3 2 4 2 2 3 3 3 3 4 5
  1 2 2 3 2 3 3 4 2 3 3 4 3 2 3 5 2 2 3 3 3 3 2 4 3 3 4 3 4 4 5 6
		

Crossrefs

The version for partitions is A001222, full A001221.
If we allow any constant subsequence we get A063787.
If we allow any contiguous subsequence we get A124771.
Positions of first appearances are A126646.
The version for binary indices is A330036, full A005811.
If we allow any subsequence we get A334299.
The full version is A351014, firsts A351015.
The version for run-sums of partitions is A353861, full A353835.
Counting distinct sums of partial runs gives A354907, full A353849.
A066099 lists all compositions in standard order.
A124767 counts runs in standard compositions.
A238279 and A333755 count compositions by number of runs.
A353852 ranks compositions with all distinct run-sums, counted by A353850.
A353853-A353859 pertain to composition run-sum trajectory.
A353932 lists run-sums of standard compositions, rows ranked by A353847.

Programs

  • Mathematica
    stc[n_]:=Differences[Prepend[Join@@ Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
    pre[y_]:=NestWhileList[Most,y,Length[#]>1&];
    Table[Length[Union[Join@@pre/@Split[stc[n]]]],{n,0,100}]

A335279 Positions of first appearances in A124771 = number of distinct contiguous subsequences of compositions in standard order.

Original entry on oeis.org

0, 1, 3, 5, 11, 15, 23, 27, 37, 47, 55, 107, 111, 119, 155, 215, 223, 239, 411, 431, 471, 479, 495, 549, 631, 943, 951, 959, 991, 1647, 1887, 1967, 1983, 2015, 2543, 2935, 3703, 3807, 3935, 3967, 4031, 6639, 6895, 7407, 7871, 7903, 8063, 8127, 10207, 13279
Offset: 1

Views

Author

Gus Wiseman, Jun 03 2020

Keywords

Examples

			The sequence together with the corresponding compositions begins:
     0: ()                215: (1,2,2,1,1,1)
     1: (1)               223: (1,2,1,1,1,1,1)
     3: (1,1)             239: (1,1,2,1,1,1,1)
     5: (2,1)             411: (1,3,1,2,1,1)
    11: (2,1,1)           431: (1,2,2,1,1,1,1)
    15: (1,1,1,1)         471: (1,1,2,2,1,1,1)
    23: (2,1,1,1)         479: (1,1,2,1,1,1,1,1)
    27: (1,2,1,1)         495: (1,1,1,2,1,1,1,1)
    37: (3,2,1)           549: (4,3,2,1)
    47: (2,1,1,1,1)       631: (3,1,1,2,1,1,1)
    55: (1,2,1,1,1)       943: (1,1,2,2,1,1,1,1)
   107: (1,2,2,1,1)       951: (1,1,2,1,2,1,1,1)
   111: (1,2,1,1,1,1)     959: (1,1,2,1,1,1,1,1,1)
   119: (1,1,2,1,1,1)     991: (1,1,1,2,1,1,1,1,1)
   155: (3,1,2,1,1)      1647: (1,3,1,2,1,1,1,1)
The subsequences for n = 0, 1, 3, 5, 11, 15, 23, 27 are the following (0 = empty partition):
  0  0  0   0   0    0     0     0     0    0
     1  1   1   1    1     1     1     1    1
        11  2   2    11    2     2     2    2
            21  11   111   11    11    3    11
                21   1111  21    12    21   21
                211        111   21    32   111
                           211   121   321  211
                           2111  211        1111
                                 1211       2111
                                            21111
		

Crossrefs

Positions of first appearances in A124771.
Compositions where every subinterval has a different sum are A333222.
Knapsack compositions are A333223.

Programs

  • Mathematica
    stc[n_]:=Differences[Prepend[Join@@Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
    seq=Table[Length[Union[ReplaceList[stc[n],{_,s___,_}:>{s}]]],{n,0,1000}];
    Table[Position[seq,i][[1,1]]-1,{i,First/@Gather[seq]}]

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.

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

A353696 Numbers k such that the k-th composition in standard order (A066099) is empty, a singleton, or has run-lengths that are a consecutive subsequence that is already counted.

Original entry on oeis.org

0, 1, 2, 4, 8, 10, 16, 32, 43, 58, 64, 128, 256, 292, 349, 442, 512, 586, 676, 697, 826, 1024, 1210, 1338, 1393, 1394, 1396, 1594, 2048, 2186, 2234, 2618, 2696, 2785, 2786, 2792, 3130, 4096, 4282, 4410, 4666, 5178, 5569, 5570, 5572, 5576, 5584, 6202, 8192
Offset: 1

Views

Author

Gus Wiseman, May 22 2022

Keywords

Comments

First differs from the non-consecutive version A353431 in lacking 22318, corresponding to the binary word 101011100101110 and standard composition (2,2,1,1,3,2,1,1,2), whose run-lengths (2,2,1,1,2,1) are a subsequence but not a consecutive subsequence.
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 terms together with their corresponding compositions begin:
    0: ()
    1: (1)
    2: (2)
    4: (3)
    8: (4)
   10: (2,2)
   16: (5)
   32: (6)
   43: (2,2,1,1)
   58: (1,1,2,2)
   64: (7)
  128: (8)
  256: (9)
  292: (3,3,3)
  349: (2,2,1,1,2,1)
  442: (1,2,1,1,2,2)
  512: (10)
  586: (3,3,2,2)
  676: (2,2,3,3)
  697: (2,2,1,1,3,1)
  826: (1,3,1,1,2,2)
		

Crossrefs

Non-recursive non-consecutive for partitions: A325755, counted by A325702.
Non-consecutive: A353431, counted by A353391.
Non-consecutive for partitions: A353393, counted by A353426.
Non-recursive non-consecutive: A353402, counted by A353390.
Counted by: A353430.
Non-recursive: A353432, counted by A353392.
A005811 counts runs in binary expansion.
A011782 counts compositions.
A066099 lists compositions in standard order, run-lengths A333769.
Statistics of standard compositions:
- Length is A000120, sum A070939.
- Runs are counted by A124767, distinct A351014.
- Subsequences are counted by A334299, contiguous A124770/A124771.
- Runs-resistance is A333628.
Classes of standard compositions:
- Partitions are A114994, strict A333255, multisets A225620, sets A333256.
- Runs are A272919, counted by A000005.
- Golomb rulers are A333222, counted by A169942.
- Anti-runs are A333489, counted by A003242.

Programs

  • Mathematica
    stc[n_]:=Differences[Prepend[Join@@ Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
    yoyQ[y_]:=Length[y]<=1||MemberQ[Join@@Table[Take[y,{i,j}],{i,Length[y]},{j,i,Length[y]}],Length/@Split[y]]&&yoyQ[Length/@Split[y]];
    Select[Range[0,1000],yoyQ[stc[#]]&]

A335518 Number of matching pairs of patterns, the first of length n and the second of length k.

Original entry on oeis.org

1, 1, 1, 3, 3, 3, 13, 13, 25, 13, 75, 75, 185, 213, 75, 541, 541, 1471, 2719, 2053, 541, 4683, 4683, 13265, 32973, 40367, 22313, 4683, 47293, 47293, 136711, 408265, 713277, 625295, 271609, 47293
Offset: 0

Views

Author

Gus Wiseman, Jun 23 2020

Keywords

Comments

We define a pattern to be a finite sequence covering an initial interval of positive integers. Patterns are counted by A000670 and ranked by A333217. A sequence S is said to match a pattern P if there is a not necessarily contiguous subsequence of S whose parts have the same relative order as P. For example, (3,1,1,3) matches (1,1,2), (2,1,1), and (2,1,2), but avoids (1,2,1), (1,2,2), and (2,2,1).

Examples

			Triangle begins:
     1
     1     1
     3     3     3
    13    13    25    13
    75    75   185   213    75
   541   541  1471  2719  2053   541
  4683  4683 13265 32973 40367 22313  4683
Row n =2 counts the following pairs:
  ()<=(1,1)  (1)<=(1,1)  (1,1)<=(1,1)
  ()<=(1,2)  (1)<=(1,2)  (1,2)<=(1,2)
  ()<=(2,1)  (1)<=(2,1)  (2,1)<=(2,1)
		

Crossrefs

Columns k = 0 and k = 1 are both A000670.
Row sums are A335517.
Patterns are ranked by A333217.
Patterns matched by a standard composition are counted by A335454.
Patterns contiguously matched by compositions are counted by A335457.
Minimal patterns avoided by a standard composition are counted by A335465.
Patterns matched by prime indices are counted by A335549.

Programs

  • Mathematica
    mstype[q_]:=q/.Table[Union[q][[i]]->i,{i,Length[Union[q]]}];
    allnorm[n_]:=If[n<=0,{{}},Function[s,Array[Count[s,y_/;y<=#]+1&,n]]/@Subsets[Range[n-1]+1]];
    Table[Sum[Length[Union[mstype/@Subsets[y,{k}]]],{y,Join@@Permutations/@allnorm[n]}],{n,0,5},{k,0,n}]
Previous Showing 21-28 of 28 results.