OFFSET
1,1
COMMENTS
EXAMPLE
The terms together with their prime indices begin:
12: {1,1,2}
40: {1,1,1,3}
63: {2,2,4}
112: {1,1,1,1,4}
144: {1,1,1,1,2,2}
325: {3,3,6}
351: {2,2,2,6}
352: {1,1,1,1,1,5}
675: {2,2,2,3,3}
832: {1,1,1,1,1,1,6}
931: {4,4,8}
1008: {1,1,1,1,2,2,4}
1539: {2,2,2,2,8}
1600: {1,1,1,1,1,1,3,3}
1728: {1,1,1,1,1,1,2,2,2}
MATHEMATICA
Select[Range[100], Length[Select[Permutations[PrimePi/@Join@@ConstantArray@@@FactorInteger[#]], SameQ@@Total/@Split[#]&]]>1&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Apr 14 2025
STATUS
approved
