A304678 -id:A304678 - cp's OEIS frontend

A334298 Numbers whose prime signature is a reversed Lyndon word.

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

Offset: 1

Gus Wiseman, Jun 10 2020

nonn

A Lyndon word is a finite sequence that is lexicographically strictly less than all of its cyclic rotations.

A number's prime signature is the sequence of positive exponents in its prime factorization.

			The prime signature of 4200 is (3,1,2,1), which is a reversed Lyndon word, so 4200 is in the sequence.
The sequence of terms together with their prime indices begins:
   1: {}           23: {9}            48: {1,1,1,1,2}
   2: {1}          24: {1,1,1,2}      49: {4,4}
   3: {2}          25: {3,3}          52: {1,1,6}
   4: {1,1}        27: {2,2,2}        53: {16}
   5: {3}          28: {1,1,4}        56: {1,1,1,4}
   7: {4}          29: {10}           59: {17}
   8: {1,1,1}      31: {11}           60: {1,1,2,3}
   9: {2,2}        32: {1,1,1,1,1}    61: {18}
  11: {5}          37: {12}           63: {2,2,4}
  12: {1,1,2}      40: {1,1,1,3}      64: {1,1,1,1,1,1}
  13: {6}          41: {13}           67: {19}
  16: {1,1,1,1}    43: {14}           68: {1,1,7}
  17: {7}          44: {1,1,5}        71: {20}
  19: {8}          45: {2,2,3}        72: {1,1,1,2,2}
  20: {1,1,3}      47: {15}           73: {21}

The non-reversed version is A329131.
Lyndon compositions are A059966.
Prime signature is A124010.
Numbers with strictly decreasing prime multiplicities are A304686.
Numbers whose reversed binary expansion is Lyndon are A328596.
Numbers whose prime signature is a necklace are A329138.
Numbers whose prime signature is aperiodic are A329139.
Cf. A000031, A000740, A000961, A001037, A025487, A027375, A097318, A112798, A118914, A304678, A318731, A329140, A329142.

lynQ[q_]:=Length[q]==0||Array[Union[{q,RotateRight[q,#1]}]=={q,RotateRight[q,#1]}&,Length[q]-1,1,And];
Select[Range[100],lynQ[Reverse[Last/@If[#==1,{},FactorInteger[#]]]]&]

A353504 Number of integer partitions of n whose product is less than the product of their multiplicities.

Original entry on oeis.org

0, 0, 1, 1, 1, 2, 2, 4, 4, 6, 6, 8, 9, 11, 12, 14, 14, 18, 21, 23, 26, 29, 29, 33, 36, 39, 40, 43, 44, 50, 53, 55, 59, 65, 69, 72, 78, 79, 81, 85, 92, 95, 97, 100, 103, 108, 109, 112, 118, 124, 129, 137, 139, 142, 149, 155, 159, 165, 166, 173, 178, 181, 187

Offset: 0

Gus Wiseman, May 19 2022

nonn

			The a(2) = 1 through a(9) = 6 partitions:
  11   111   1111   2111    21111    22111     221111     222111
                    11111   111111   31111     311111     411111
                                     211111    2111111    2211111
                                     1111111   11111111   3111111
                                                          21111111
                                                          111111111

LHS (product of parts) is counted by A339095, ranked by A003963.
RHS (product of multiplicities) is counted by A266477, ranked by A005361.
The version for greater instead of less is A353505.
The version for equal instead of less is A353506, ranked by A353503.
A181819 gives prime shadow, with an inverse A181821.
A353398 counts partitions with the same product of multiplicities as of shadows, ranked by A353399.
Cf. A002033, A008284, A085629, A097318, A098859, A114640, A116608, A118914, A124010, A304678, A353394, A353500, A353507.

Table[Length[Select[IntegerPartitions[n],Times@@#

A353505 Number of integer partitions of n whose product is greater than the product of their multiplicities.

Original entry on oeis.org

0, 0, 1, 2, 3, 5, 7, 11, 17, 24, 35, 47, 66, 89, 121, 162, 214, 276, 362, 464, 599, 763, 971, 1219, 1537, 1918, 2393, 2966, 3668, 4512, 5549, 6784, 8287, 10076, 12238, 14807, 17898, 21556, 25931, 31094, 37243, 44486, 53075, 63158, 75069, 89025, 105447, 124636

Offset: 0

Gus Wiseman, May 19 2022

nonn

			The a(0) = 0 through a(7) = 11 partitions:
  .  .  (2)  (3)   (4)   (5)    (6)    (7)
             (21)  (22)  (32)   (33)   (43)
                   (31)  (41)   (42)   (52)
                         (221)  (51)   (61)
                         (311)  (222)  (322)
                                (321)  (331)
                                (411)  (421)
                                       (511)
                                       (2221)
                                       (3211)
                                       (4111)

RHS (product of multiplicities) is counted by A266477, ranked by A005361.
LHS (product of parts) is counted by A339095, ranked by A003963.
The version for less instead of greater is A353504.
The version for equality is A353506, ranked by A353503.
A124010 gives prime signature, sorted A118914.
A181819 gives prime shadow, with an inverse A181821.
A353398 counts partitions with the same products of multiplicities as of shadows, ranked by A353399.
Cf. A002033, A008284, A008619, A085629, A097318, A098859, A114640, A116608, A130091, A304678, A353394, A353507.

Table[Length[Select[IntegerPartitions[n],Times@@#>Times@@Length/@Split[#]&]],{n,0,30}]

A328869 Numbers whose lengths of runs of 1's in their reversed binary expansion are weakly increasing.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 12, 13, 14, 15, 16, 17, 18, 20, 21, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 36, 37, 40, 41, 42, 48, 49, 50, 51, 52, 53, 54, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 68, 69, 72, 73, 74, 80, 81, 82, 84, 85, 96, 97, 98, 99

Offset: 1

Gus Wiseman, Nov 12 2019

nonn

			The sequence of terms together with their reversed binary expansions begins:
   1: (1)
   2: (01)
   3: (11)
   4: (001)
   5: (101)
   6: (011)
   7: (111)
   8: (0001)
   9: (1001)
  10: (0101)
  12: (0011)
  13: (1011)
  14: (0111)
  15: (1111)
  16: (00001)
  17: (10001)
  18: (01001)
  20: (00101)
  21: (10101)
  24: (00011)

Complement of A328870.
The version for prime indices is A304678.
The binary expansion of n has A069010(n) runs of 1's.
Cf. A000120, A003714, A014081, A112769, A164707, A245563, A328592.

Select[Range[100],LessEqual@@Length/@Split[Join@@Position[Reverse[IntegerDigits[#,2]],1],#2==#1+1&]&]

A344530 For any number n with binary expansion Sum_{k = 1..m} 2^e_k (where 0 <= e_1 < ... < e_m), a(n) = Product_{k = 1..m} prime(1+e_k)^k (where prime(k) denotes the k-th prime number).

Original entry on oeis.org

1, 2, 3, 18, 5, 50, 75, 2250, 7, 98, 147, 6174, 245, 17150, 25725, 5402250, 11, 242, 363, 23958, 605, 66550, 99825, 32942250, 847, 130438, 195657, 90393534, 326095, 251093150, 376639725, 870037764750, 13, 338, 507, 39546, 845, 109850, 164775, 64262250, 1183

Offset: 0

Rémy Sigrist, May 22 2021

All terms are distinct and belong to A304678.

			For n = 42:
- 42 = 2^1 + 2^3 + 2^5,
- a(42) = prime(1+1) * prime(1+3)^2 * prime(1+5)^3,
- a(42) = 3 * 7^2 * 13^3 = 322959.

Rémy Sigrist, Table of n, a(n) for n = 0..8192

Cf. A003961, A045967, A076954, A304678.

a(n) = { my (v=1, e); for (k=1, oo, if (n==0, return (v), n-=2^e=valuation(n, 2); v*=prime(1+e)^k)) }

a(0) = 1.
a(2*n) = A003961(a(n)).
a(2*n + 1) = A045967(a(n)).
a(2^n) = prime(n+1) for any n >= 0.
a(2^n - 1) = A076954(n) for any n >= 0.

A354233 Least number with n runs in ordered prime signature.

Original entry on oeis.org

1, 2, 12, 90, 2100, 48510, 3303300, 139369230, 18138420300, 1157182716690, 278261505822300, 30168910606824990, 9894144362523521100, 1693350783450479863710, 715178436956287675671300, 147157263134197051595990130, 83730945863531292204568790100

Offset: 0

Gus Wiseman, May 20 2022

nonn

A number's prime signature (row n of A124010) is the sequence of positive exponents in its prime factorization.

			The prime indices of 90 are {1,2,2,3}, with multiplicities {1,2,1}, with runs {{1},{2},{1}}, and this is the first case of 3 runs, so a(3) = 90.

Mathematics Stack Exchange, What is a sequence run? (answered 2011-12-01)

Positions of first appearances in A353745.
A001222 counts prime factors with multiplicity, distinct A001221.
A005361 gives product of signature, firsts A353500 (sorted A085629).
A056239 adds up prime indices, row sums of A112798 and A296150.
A124010 gives prime signature, sorted A118914.
A130091 lists numbers with distinct prime exponents, counted by A098859.
A181819 gives prime shadow, with an inverse A181821.
A182850 gives frequency depth of prime indices, counted by A225485.
A323014 gives adjusted frequency depth of prime indices, counted by A325280.
Cf. A005811, A097318, A304678, A325755, A353507, A353742.

Table[Product[Prime[i]^If[EvenQ[n-i],1,2],{i,n}],{n,0,15}]

A334969 Heinz numbers of alternately strong integer partitions.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 13, 14, 15, 16, 17, 18, 19, 21, 22, 23, 25, 26, 27, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 41, 42, 43, 46, 47, 49, 50, 51, 53, 54, 55, 57, 58, 59, 61, 62, 64, 65, 66, 67, 69, 70, 71, 73, 74, 75, 77, 78, 79, 81, 82, 83

Offset: 1

Gus Wiseman, Jun 09 2020

nonn

First differs from A304678 in lacking 450.
First differs from A316529 (the totally strong version) in having 150.
A sequence is alternately strong if either it is empty, equal to (1), or its run-lengths are weakly decreasing (strong) and, when reversed, are themselves an alternately strong 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 does not contain 450, the Heinz number of (3,3,2,2,1), because, while the multiplicities are weakly decreasing, their reverse (1,2,2) does not have weakly decreasing multiplicities.

The co-strong version is A317257.
The case of reversed partitions is (also) A317257.
The total version is A316529.
These partitions are counted by A332339.
Totally co-strong partitions are counted by A332275.
Alternately co-strong compositions are counted by A332338.
Cf. A000041, A100883, A181819, A182850, A182857, A304660, A305563, A316496, A317256, A332292, A332340.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
altstrQ[q_]:=Or[q=={},q=={1},And[GreaterEqual@@Length/@Split[q],altstrQ[Reverse[Length/@Split[q]]]]];
Select[Range[100],altstrQ[Reverse[primeMS[#]]]&]

A383088 Numbers whose multiset of prime indices does not have all equal run-sums.

Original entry on oeis.org

6, 10, 14, 15, 18, 20, 21, 22, 24, 26, 28, 30, 33, 34, 35, 36, 38, 39, 42, 44, 45, 46, 48, 50, 51, 52, 54, 55, 56, 57, 58, 60, 62, 65, 66, 68, 69, 70, 72, 74, 75, 76, 77, 78, 80, 82, 84, 85, 86, 87, 88, 90, 91, 92, 93, 94, 95, 96, 98, 99, 100, 102, 104, 105

Offset: 1

Gus Wiseman, Apr 17 2025

nonn

First differs from A381871 in having 36.

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.

			The prime indices of 36 are {1,1,2,2}, with run-sums (2,4), so 36 is in the sequence, even though we have the multiset partition {{1,1},{2},{2}} with equal sums.
The terms together with their prime indices begin:
    6: {1,2}
   10: {1,3}
   14: {1,4}
   15: {2,3}
   18: {1,2,2}
   20: {1,1,3}
   21: {2,4}
   22: {1,5}
   24: {1,1,1,2}
   26: {1,6}
   28: {1,1,4}
   30: {1,2,3}
   33: {2,5}
   34: {1,7}
   35: {3,4}
   36: {1,1,2,2}
   38: {1,8}
   39: {2,6}
   42: {1,2,4}
   44: {1,1,5}
   45: {2,2,3}
   46: {1,9}

For run-lengths instead of sums we have A059404, distinct A130092.
The complement is A353833, counted by A304442.
For distinct instead of equal run-sums we have A353839.
Partitions of this type are counted by A382076.
Counting and ranking partitions by run-lengths and run-sums:
- constant: A047966 (ranks A072774), sums A304442 (ranks A353833)
- distinct: A098859 (ranks A130091), sums A353837 (ranks A353838)
- weakly decreasing: A100882 (ranks A242031), sums A304405 (ranks A357875)
- weakly increasing: A100883 (ranks A304678), sums A304406 (ranks A357861)
- strictly decreasing: A100881 (ranks A304686), sums A304428 (ranks A357862)
- strictly increasing: A100471 (ranks A334965), sums A304430 (ranks A357864)
A001222 counts prime factors, distinct A001221.
A056239 adds up prime indices, row sums of A112798.
A326534 ranks multiset partitions with a common sum, counted by A321455, normal A326518.
A353851 counts compositions with a common run-sum, ranks A353848.
A353862 gives the greatest run-sum of prime indices, least A353931.
A382877 counts permutations of prime indices with equal run-sums, zeros A383100.
A383098 counts partitions with a permutation having all equal run-sums, ranks A383110.
Cf. A000720, A006171, A300273, A353861, A353932, A354584, A383014, A383015, A383095, A383097, A383099.

Select[Range[100], !SameQ@@Cases[FactorInteger[#],{p_,k_}:>PrimePi[p]*k]&]

cp's OEIS Frontend

A334298 Numbers whose prime signature is a reversed Lyndon word.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A353504 Number of integer partitions of n whose product is less than the product of their multiplicities.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

A353505 Number of integer partitions of n whose product is greater than the product of their multiplicities.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

A328869 Numbers whose lengths of runs of 1's in their reversed binary expansion are weakly increasing.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

A344530 For any number n with binary expansion Sum_{k = 1..m} 2^e_k (where 0 <= e_1 < ... < e_m), a(n) = Product_{k = 1..m} prime(1+e_k)^k (where prime(k) denotes the k-th prime number).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

PARI

Formula

A354233 Least number with n runs in ordered prime signature.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A334969 Heinz numbers of alternately strong integer partitions.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A383088 Numbers whose multiset of prime indices does not have all equal run-sums.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica