OFFSET
1,1
COMMENTS
EXAMPLE
The terms together with their prime indices begin:
24: {1,1,1,2}
40: {1,1,1,3}
48: {1,1,1,1,2}
54: {1,2,2,2}
56: {1,1,1,4}
80: {1,1,1,1,3}
88: {1,1,1,5}
96: {1,1,1,1,1,2}
104: {1,1,1,6}
112: {1,1,1,1,4}
135: {2,2,2,3}
136: {1,1,1,7}
152: {1,1,1,8}
160: {1,1,1,1,1,3}
MATHEMATICA
Select[Range[100], Select[Permutations[Join@@ConstantArray@@@FactorInteger[#]], SameQ@@Length/@Split[#]&]=={}&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Apr 09 2025
STATUS
approved
