A348268
Mapping between Lyndon factorization and prime factorization.
Original entry on oeis.org
1, 2, 3, 4, 5, 6, 7, 8, 11, 10, 9, 12, 13, 14, 17, 16, 19, 22, 15, 20, 29, 18, 21, 24, 23, 26, 37, 28, 31, 34, 41, 32, 43, 38, 33, 44, 25, 30, 35, 40, 53, 58, 27, 36, 67, 42, 51, 48, 47, 46, 39, 52, 61, 74, 49, 56, 59, 62, 73, 68, 71, 82, 79, 64, 83, 86, 57, 76, 55, 66, 77
Offset: 0
We map Lyndon-words to positive integers that have no divisors other than 1 and itself: [] -> 1, 1 -> 2, 01 -> 3, 001 -> 5, 011 -> 7, 0001 -> 11, ...
9 is in reversed order binary: 1001, has the factors (1)(001) -> a(9) = 2*5 = 10.
10 is in reversed order binary: 0101, has the factors (01)(01) -> a(10) = 3*3 = 9.
A334298
Numbers whose prime signature is a reversed Lyndon word.
Original entry on oeis.org
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
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.
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[#]]]]&]
Comments