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 51-60 of 75 results. Next

A333191 Number of compositions of n whose run-lengths are either strictly increasing or strictly decreasing.

Original entry on oeis.org

1, 1, 2, 2, 5, 8, 10, 18, 24, 29, 44, 60, 68, 100, 130, 148, 201, 256, 310, 396, 478, 582, 736, 898, 1068, 1301, 1594, 1902, 2288, 2750, 3262, 3910, 4638, 5510, 6538, 7686, 9069, 10670, 12560, 14728, 17170, 20090, 23462, 27292, 31710, 36878, 42704, 49430
Offset: 0

Views

Author

Gus Wiseman, May 17 2020

Keywords

Comments

A composition of n is a finite sequence of positive integers summing to n.

Examples

			The a(1) = 1 through a(7) = 18 compositions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)
       (11)  (111)  (22)    (113)    (33)      (115)
                    (112)   (122)    (114)     (133)
                    (211)   (221)    (222)     (223)
                    (1111)  (311)    (411)     (322)
                            (1112)   (1113)    (331)
                            (2111)   (3111)    (511)
                            (11111)  (11112)   (1114)
                                     (21111)   (1222)
                                     (111111)  (2221)
                                               (4111)
                                               (11113)
                                               (11122)
                                               (22111)
                                               (31111)
                                               (111112)
                                               (211111)
                                               (1111111)

Links

Crossrefs

The non-strict version is A332835.
The case of partitions is A333190.
Unimodal compositions are A001523.
Strict compositions are A032020.
Partitions with distinct run-lengths are A098859.
Partitions with strictly increasing run-lengths are A100471.
Partitions with strictly decreasing run-lengths are A100881.
Partitions with weakly decreasing run-lengths are A100882.
Partitions with weakly increasing run-lengths are A100883.
Compositions with equal run-lengths are A329738.
Compositions whose run-lengths are unimodal are A332726.
Compositions whose run-lengths are unimodal or co-unimodal are A332746.
Compositions whose run-lengths are neither incr. nor decr. are A332833.
Compositions that are neither increasing nor decreasing are A332834.
Compositions with weakly increasing run-lengths are A332836.
Compositions that are strictly incr. or strictly decr. are A333147.
Compositions with strictly increasing run-lengths are A333192.
Cf. A059204, A072706, A329398, A329744, A329766, A332641, A332726, A332831, A332745, A333149.

Programs

  • Mathematica
    Table[Length[Select[Join@@Permutations/@IntegerPartitions[n],Or[Less@@Length/@Split[#],Greater@@Length/@Split[#]]&]],{n,0,15}]

Formula

a(n > 0) = 2*A333192(n) - A000005(n).

Extensions

Terms a(26) and beyond from Giovanni Resta, May 19 2020

A353430 Number of integer compositions of n that are empty, a singleton, or whose own run-lengths are a consecutive subsequence that is already counted.

Original entry on oeis.org

1, 1, 1, 1, 2, 1, 3, 1, 1, 4, 5, 7, 9, 11, 15, 16, 22, 25, 37, 37, 45
Offset: 0

Views

Author

Gus Wiseman, May 16 2022

Keywords

Examples

			The a(n) compositions for selected n (A..E = 10..14):
  n=4:  n=6:    n=9:      n=10:     n=12:     n=14:
-----------------------------------------------------------
  (4)   (6)     (9)       (A)       (C)       (E)
  (22)  (1122)  (333)     (2233)    (2244)    (2255)
        (2211)  (121122)  (3322)    (4422)    (5522)
                (221121)  (131122)  (151122)  (171122)
                          (221131)  (221124)  (221126)
                                    (221142)  (221135)
                                    (221151)  (221153)
                                    (241122)  (221162)
                                    (421122)  (221171)
                                              (261122)
                                              (351122)
                                              (531122)
                                              (621122)
                                              (122121122)
                                              (221121221)

Crossrefs

Non-recursive non-consecutive version: counted by A353390, ranked by A353402, reverse A353403, partitions A325702.
Non-consecutive version: A353391, ranked by A353431, partitions A353426.
Non-recursive version: A353392, ranked by A353432.
A003242 counts anti-run compositions, ranked by A333489.
A011782 counts compositions.
A114901 counts compositions with no runs of length 1.
A169942 counts Golomb rulers, ranked by A333222.
A325676 counts knapsack compositions, ranked by A333223.
A329738 counts uniform compositions, partitions A047966.
A329739 counts compositions with all distinct run-lengths.
Cf. A005811, A032020, A103295, A114640, A165413, A242882, A325705, A333755, A351013, A353400, A353401.

Programs

  • Mathematica
    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]];
Table[Length[Select[Join@@Permutations/@IntegerPartitions[n],yoyQ]],{n,0,15}]

A382878 Set of positions of first appearances in A382857 (permutations of prime indices with equal run-lengths).

Original entry on oeis.org

1, 6, 24, 30, 36, 180, 210, 360, 420, 720, 1080, 1260, 1800, 2160, 2310, 2520, 3600, 4620, 5040, 5400, 6300, 7560, 10800, 12600, 13860, 15120, 21600, 25200, 25920, 27000, 27720, 30030, 32400, 37800, 44100, 45360, 46656, 50400, 54000, 55440, 60060, 60480, 64800
Offset: 1

Views

Author

Gus Wiseman, Apr 09 2025

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, sum A056239.

Examples

			The permutations for n = 6, 720, 36, 25920, 30:
  (1,2)  (1,2,1,2,1,3,1)  (1,1,2,2)  (1,2,1,2,1,2,1,2,1,3,1)  (1,2,3)
  (2,1)  (1,2,1,3,1,2,1)  (1,2,1,2)  (1,2,1,2,1,2,1,3,1,2,1)  (1,3,2)
         (1,3,1,2,1,2,1)  (2,1,2,1)  (1,2,1,2,1,3,1,2,1,2,1)  (2,1,3)
                          (2,2,1,1)  (1,2,1,3,1,2,1,2,1,2,1)  (2,3,1)
                                     (1,3,1,2,1,2,1,2,1,2,1)  (3,1,2)
                                                              (3,2,1)
The terms together with their prime indices begin:
      1: {}
      6: {1,2}
     24: {1,1,1,2}
     30: {1,2,3}
     36: {1,1,2,2}
    180: {1,1,2,2,3}
    210: {1,2,3,4}
    360: {1,1,1,2,2,3}
    420: {1,1,2,3,4}
    720: {1,1,1,1,2,2,3}
   1080: {1,1,1,2,2,2,3}
   1260: {1,1,2,2,3,4}
   1800: {1,1,1,2,2,3,3}
   2160: {1,1,1,1,2,2,2,3}
   2310: {1,2,3,4,5}
   2520: {1,1,1,2,2,3,4}
   3600: {1,1,1,1,2,2,3,3}

Crossrefs

Positions of first appearances in A382857 (zeros A382879), by signature A382858.
For distinct run-lengths we have A382772, firsts of A382771 (by signature A382773).
A140690 lists numbers whose binary expansion has equal run-lengths, distinct A044813.
A056239 adds up prime indices, row sums of A112798.
A239455 counts Look-and-Say partitions, ranks A351294, conjugate A381432.
A329738 counts compositions with equal run-lengths, ranks A353744.
A329739 counts compositions with distinct run-lengths, ranks A351596.
A351293 counts non-Look-and-Say partitions, ranks A351295, conjugate A381433.
Cf. A000720, A001221, A001222, A003242, A048767, A098859, A130091, A238130, A305936, A351013, A351202, A382876.

Programs

  • Mathematica
    y=Table[Length[Select[Permutations[Join@@ConstantArray@@@FactorInteger[n]],SameQ@@Length/@Split[#]&]],{n,0,1000}];
fip[y_]:=Select[Range[Length[y]],!MemberQ[Take[y,#-1],y[[#]]]&];
fip[Rest[y]]

A383091 Numbers whose prime indices have at most one permutation with all equal run-lengths.

Original entry on oeis.org

1, 2, 3, 4, 5, 7, 8, 9, 11, 12, 13, 16, 17, 18, 19, 20, 23, 24, 25, 27, 28, 29, 31, 32, 37, 40, 41, 43, 44, 45, 47, 48, 49, 50, 52, 53, 54, 56, 59, 61, 63, 64, 67, 68, 71, 72, 73, 75, 76, 79, 80, 81, 83, 88, 89, 92, 96, 97, 98, 99, 101, 103, 104, 107, 108, 109
Offset: 1

Views

Author

Gus Wiseman, Apr 18 2025

Keywords

Comments

First differs from A359178 (complement A362606) in having 1, 240 and lacking 180.
First differs from A130091 (complement A130092) in having 240 and lacking 360.
First differs from A351294 (complement A351295) in having 240 and lacking 216.
Includes all primes A000040 and prime powers A000961.
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, sum A056239.

Examples

			The prime indices of 144 are {1,1,1,1,2,2}, with just one permutation with all equal run-lengths (1,1,2,2,1,1), so 144 is in the sequence.
The prime indices of 240 are {1,1,1,1,2,3}, which have no permutation with all equal run-lengths, so 240 is in the sequence.
The terms together with their prime indices begin:
   1: {}
   2: {1}
   3: {2}
   4: {1,1}
   5: {3}
   7: {4}
   8: {1,1,1}
   9: {2,2}
  11: {5}
  12: {1,1,2}
  13: {6}
  16: {1,1,1,1}
  17: {7}
  18: {1,2,2}
  19: {8}
  20: {1,1,3}
  23: {9}
  24: {1,1,1,2}

Crossrefs

These are positions of zeros and ones in A382857, just zeros A382879, just ones A383112.
The complement for run-sums instead of lengths is A383015, counted by A383097.
The complement is A383089, counted by A383090.
Partitions of this type are counted by A383092, just zero A382915, just one A383094.
For run-sums instead of lengths we have A383099 \/ A383100, counted by A383095 + A383096.
A047966 counts partitions with equal run-lengths, compositions A329738.
A056239 adds up prime indices, row sums of A112798.
A098859 counts partitions with distinct run-lengths, ranks A130091.
A329739 counts compositions with distinct run-lengths, ranks A351596, complement A351291.
Cf. A000720, A000961, A001221, A001222, A048767, A351294, A353744, A353833, A381435, A382771, A382877, A383113.

Programs

  • Mathematica
    Select[Range[100], Length[Select[Permutations[PrimePi/@Join @@ ConstantArray@@@FactorInteger[#]], SameQ@@Length/@Split[#]&]]<=1&]

Formula

Equals A382879 \/ A383112, counted by A382915 + A383094.

A383092 Number of integer partitions of n having at most one permutation with all equal run-lengths.

Original entry on oeis.org

1, 1, 2, 2, 4, 5, 7, 10, 13, 16, 22, 28, 34, 46, 58, 69, 90, 114, 141, 178, 216, 271, 338, 418, 506, 630, 769, 941, 1140, 1399, 1675, 2051, 2454, 2975, 3561, 4289, 5094, 6137, 7274, 8692, 10269, 12249, 14414, 17128, 20110, 23767, 27872, 32849, 38346, 45094, 52552, 61533
Offset: 0

Views

Author

Gus Wiseman, Apr 19 2025

Keywords

Examples

			The partition (222211) has 1 permutation with all equal run-lengths: (221122), so is counted under a(10).
The partition (33211111) has no permutation with all equal run-lengths, so is counted under a(13).
The a(1) = 1 through a(7) = 10 partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)
       (11)  (111)  (22)    (221)    (33)      (322)
                    (211)   (311)    (222)     (331)
                    (1111)  (2111)   (411)     (511)
                            (11111)  (3111)    (2221)
                                     (21111)   (4111)
                                     (111111)  (22111)
                                               (31111)
                                               (211111)
                                               (1111111)

Crossrefs

For no choices we have A382915, ranks A382879.
For at least one choice we have A383013, for run-sums A383098, ranks A383110.
The complement is A383090, ranks A383089.
Partitions of this type are ranked by A383091 = positions of terms <= 1 in A382857.
For a unique choice we have A383094, ranks A383112.
For run-sums instead of lengths we have A383095 + A383096, ranks A383099 \/ A383100.
The complement for run-sums is A383097, ranks A383015, positions of terms > 1 in A382877.
Cf. A047966, A072774, A098859, A100471, A100881, A100882, A100883, A304442.
A000041 counts integer partitions, strict A000009.
A008284 counts partitions by length, strict A008289.
A239455 counts Look-and-Say partitions, ranks A351294, conjugate A381432.
A329738 counts compositions with equal run-lengths, ranks A353744.
A329739 counts compositions with distinct run-lengths, ranks A351596, complement A351291.
A351293 counts non-Look-and-Say partitions, ranks A351295, conjugate A381433.
Cf. A006171, A047993, A362608, A381871, A382076, A382771, A383111.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n],Length[Select[Permutations[#],SameQ@@Length/@Split[#]&]]<=1&]],{n,0,15}]

Formula

a(n) = A382915(n) + A383094(n).

Extensions

More terms from Bert Dobbelaere, Apr 26 2025

A329741 Number of compositions of n whose multiplicities cover an initial interval of positive integers.

Original entry on oeis.org

1, 1, 1, 3, 6, 11, 14, 34, 52, 114, 225, 464, 539, 1183, 1963, 3753, 6120, 11207, 19808, 38254, 77194, 147906, 224853, 374216, 611081, 1099933, 2129347, 3336099, 5816094, 9797957, 17577710, 29766586, 53276392, 93139668, 163600815, 324464546, 637029845, 1010826499
Offset: 0

Views

Author

Gus Wiseman, Nov 20 2019

Keywords

Comments

A composition of n is a finite sequence of positive integers with sum n.

Examples

			The a(1) = 1 through a(6) = 14 compositions:
  (1)  (2)  (3)    (4)      (5)      (6)
            (1,2)  (1,3)    (1,4)    (1,5)
            (2,1)  (3,1)    (2,3)    (2,4)
                   (1,1,2)  (3,2)    (4,2)
                   (1,2,1)  (4,1)    (5,1)
                   (2,1,1)  (1,1,3)  (1,1,4)
                            (1,2,2)  (1,2,3)
                            (1,3,1)  (1,3,2)
                            (2,1,2)  (1,4,1)
                            (2,2,1)  (2,1,3)
                            (3,1,1)  (2,3,1)
                                     (3,1,2)
                                     (3,2,1)
                                     (4,1,1)

Crossrefs

Looking at run-lengths instead of multiplicities gives A329766.
The complete case is A329748.
Complete compositions are A107429.
Cf. A000740, A008965, A098504, A242882, A244164, A329738, A329739, A329740.

Programs

  • Mathematica
    normQ[m_]:=Or[m=={},Union[m]==Range[Max[m]]];
Table[Length[Select[Join@@Permutations/@IntegerPartitions[n],normQ[Length/@Split[Sort[#]]]&]],{n,20}]

Extensions

a(0), a(21)-a(37) from Alois P. Heinz, Nov 21 2019

A329867 Runs-resistance minus cuts-resistance of the binary expansion of n.

Original entry on oeis.org

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

Views

Author

Gus Wiseman, Nov 23 2019

Keywords

Comments

For the operation of taking the sequence of run-lengths of a finite sequence, runs-resistance is defined to be the number of applications required to reach a singleton.
For the operation of shortening all runs by 1, cuts-resistance is defined to be the number of applications required to reach an empty word.

Examples

			The sequence of binary expansions together with their runs-resistances and cuts-resistances, and their differences, begins:
   0      (): 0 - 0 =  0
   1     (1): 0 - 1 = -1
   2    (10): 2 - 1 =  1
   3    (11): 1 - 2 = -1
   4   (100): 3 - 2 =  1
   5   (101): 2 - 1 =  1
   6   (110): 3 - 2 =  1
   7   (111): 1 - 3 = -2
   8  (1000): 3 - 3 =  0
   9  (1001): 3 - 2 =  1
  10  (1010): 2 - 1 =  1
  11  (1011): 4 - 2 =  2
  12  (1100): 2 - 2 =  0
  13  (1101): 4 - 2 =  2
  14  (1110): 3 - 3 =  0
  15  (1111): 1 - 4 = -3
  16 (10000): 3 - 4 = -1
  17 (10001): 3 - 3 =  0
  18 (10010): 5 - 2 =  3
  19 (10011): 4 - 2 =  2
  20 (10100): 4 - 2 =  2

Links

Crossrefs

Positions of 0's are A329865.
Positions of -1's are A329866.
Sorted positions of first appearances are A329868.
Compositions with runs-resistance equal to cuts-resistance are A329864.
Compositions with runs-resistance = cuts-resistance minus 1 are A329869.
Runs-resistance of binary expansion is A318928.
Cuts-resistance of binary expansion is A319416.
Compositions counted by runs-resistance are A329744.
Compositions counted by cuts-resistance are A329861.
Binary words counted by runs-resistance are A319411 and A329767.
Binary words counted by cuts-resistance are A319421 and A329860.
Cf. A000975, A003242, A107907, A164707, A329738.

Programs

  • Mathematica
    runsres[q_]:=Length[NestWhileList[Length/@Split[#]&,q,Length[#]>1&]]-1;
degdep[q_]:=Length[NestWhileList[Join@@Rest/@Split[#]&,q,Length[#]>0&]]-1;
Table[If[n==0,0,runsres[IntegerDigits[n,2]]-degdep[IntegerDigits[n,2]]],{n,0,100}]

Formula

For n > 1, a(2^n) = 3 - n.
For n > 1, a(2^n - 1) = 1 - n.

A382914 Numbers k such that it is not possible to permute a multiset whose multiplicities are the prime indices of k so that the run-lengths are all equal.

Original entry on oeis.org

10, 14, 22, 26, 28, 33, 34, 38, 39, 44, 46, 51, 52, 55, 57, 58, 62, 66, 68, 69, 74, 76, 78, 82, 85, 86, 87, 88, 92, 93, 94, 95, 102, 104, 106, 111, 114, 115, 116, 118, 119, 122, 123, 124, 129, 130, 134, 136, 138, 141, 142, 145, 146, 148, 152, 153, 155, 156
Offset: 1

Views

Author

Gus Wiseman, Apr 09 2025

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, sum A056239.

Examples

			The terms together with their prime indices begin:
  10: {1,3}
  14: {1,4}
  22: {1,5}
  26: {1,6}
  28: {1,1,4}
  33: {2,5}
  34: {1,7}
  38: {1,8}
  39: {2,6}
  44: {1,1,5}
  46: {1,9}
  51: {2,7}
  52: {1,1,6}
  55: {3,5}
  57: {2,8}
  58: {1,10}
  62: {1,11}
  66: {1,2,5}

Crossrefs

For anti-run permutations we have A335126, complement A335127.
Zeros of A382858, anti-run A335125.
For prime indices instead of signature we have A382879, counted by A382915.
For distinct run-lengths we have A382912 (zeros of A382773), complement A382913.
A003963 gives product of prime indices.
A056239 adds up prime indices, row sums of A112798.
A140690 lists numbers whose binary expansion has equal run-lengths, distinct A044813.
A304442 counts partitions with equal run-sums, ranks A353833.
A164707 lists numbers whose binary form has equal runs of ones, distinct A328592.
A329738 counts compositions with equal run-lengths, ranks A353744.
A329739 counts compositions with distinct run-lengths, ranks A351596, complement A351291.
Cf. A382857 (firsts A382878), A382771 (firsts A382772).
Cf. A000720, A000961, A001221, A001222, A048767, A181821, A305936, A351013, A382877.

Programs

  • Mathematica
    nrmptn[n_]:=Join@@MapIndexed[Table[#2[[1]],{#1}]&,If[n==1,{},Flatten[Cases[FactorInteger[n]//Reverse,{p_,k_}:>Table[PrimePi[p],{k}]]]]];
Select[Range[100],Select[Permutations[nrmptn[#]],SameQ@@Length/@Split[#]&]=={}&]

A353428 Number of integer compositions of n with all parts and all run-lengths > 2.

Original entry on oeis.org

1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 2, 0, 0, 2, 1, 0, 2, 0, 2, 4, 0, 0, 8, 3, 0, 10, 4, 4, 15, 4, 8, 24, 7, 8, 42, 16, 10, 59, 31, 27, 87, 37, 52, 149, 62, 66, 233, 121, 111, 342, 207, 204, 531, 308, 351, 864, 487, 536, 1373, 864, 865, 2057, 1440, 1509, 3232
Offset: 0

Views

Author

Gus Wiseman, May 16 2022

Keywords

Examples

			The a(n) compositions for selected n:
  n=16:   n=18:     n=20:    n=21:      n=24:
----------------------------------------------------
  (4444)  (666)     (5555)   (777)      (888)
          (333333)  (44444)  (333444)   (6666)
                             (444333)   (333555)
                             (3333333)  (444444)
                                        (555333)
                                        (3333444)
                                        (4443333)
                                        (33333333)

Links

Crossrefs

Allowing any multiplicities gives A078012, partitions A008483.
The version for no (instead of all) parts or run-lengths > 2 is A137200.
Allowing any parts gives A353400, partitions A100405.
The version for partitions is A353501, ranked by A353502.
The version for > 1 instead of > 2 is A353508, partitions A339222.
A003242 counts anti-run compositions, ranked by A333489.
A008466 counts compositions with some part > 2.
A011782 counts compositions.
A114901 counts compositions with no runs of length 1, ranked by A353427.
A128695 counts compositions with no run-lengths > 2.
A261983 counts non-anti-run compositions.
A335464 counts compositions with a run-length > 2.
Cf. A032020, A044813, A098859, A165413, A318928, A329738, A329739, A333755, A353390, A353429.

Programs

  • Maple
    b:= proc(n, h) option remember; `if`(n=0, 1, add(
     `if`(i=h, 0, add(b(n-i*j, i), j=3..n/i)), i=3..n/3))
    end:
a:= n-> b(n, 0):
seq(a(n), n=0..80);  # Alois P. Heinz, May 18 2022
  • Mathematica
    Table[Length[Select[Join@@Permutations/@IntegerPartitions[n],!MemberQ[#,1|2]&&!MemberQ[Length/@Split[#],1|2]&]],{n,0,15}]

Extensions

a(26)-a(66) from Alois P. Heinz, May 17 2022

A382772 Set of positions of first appearances in A382771 (permutations of prime indices with distinct run-lengths).

Original entry on oeis.org

1, 6, 12, 96, 360, 1536, 3456, 5184, 5760, 6144, 7776, 13824, 23040, 24576, 55296, 62208, 92160
Offset: 1

Views

Author

Gus Wiseman, Apr 09 2025

Keywords

Examples

			The permutations for n = 12, 96, 360, 1536:
  (1,1,2)  (1,1,1,1,1,2)  (1,1,1,2,2,3)  (1,1,1,1,1,1,1,1,1,2)
  (2,1,1)  (1,1,1,2,1,1)  (1,1,1,3,2,2)  (1,1,1,1,1,1,1,2,1,1)
           (1,1,2,1,1,1)  (2,2,1,1,1,3)  (1,1,1,1,1,1,2,1,1,1)
           (2,1,1,1,1,1)  (2,2,3,1,1,1)  (1,1,1,1,1,2,1,1,1,1)
                          (3,1,1,1,2,2)  (1,1,1,1,2,1,1,1,1,1)
                          (3,2,2,1,1,1)  (1,1,1,2,1,1,1,1,1,1)
                                         (1,1,2,1,1,1,1,1,1,1)
                                         (2,1,1,1,1,1,1,1,1,1)

Crossrefs

Positions of first appearances in A382771, by signature A382773.
For equal run-lengths we have A382878, firsts of A382857, zeros A382879.
A044813 lists numbers whose binary expansion has distinct run-lengths, equal A140690.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798.
A098859 counts partitions with distinct multiplicities, ordered A242882.
A239455 counts Look-and-Say partitions, ranks A351294, conjugate A381432.
A328592 lists numbers whose binary form has distinct runs of ones, equal A164707.
A329738 counts compositions with equal run-lengths, ranks A353744.
A329739 counts compositions with distinct run-lengths, ranks A351596.
A351293 counts non-Look-and-Say partitions, ranks A351295, conjugate A381433.
Cf. A000720, A001221, A001222, A003242, A048767, A130091, A238130, A305936, A351013, A351202, A382876.

Programs

  • Mathematica
    y=Table[Length[Select[Permutations[Join@@ConstantArray@@@FactorInteger[n]],UnsameQ@@Length/@Split[#]&]],{n,0,100000}];
fip[y_]:=Select[Range[Length[y]],!MemberQ[Take[y,#-1],y[[#]]]&];
fip[Rest[y]]
Previous Showing 51-60 of 75 results. Next

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

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