OFFSET
1,1
COMMENTS
EXAMPLE
This is a list of normalized factorizations (see A112798) of selected entries:
4: {1,1}
6: {1,2}
12: {1,1,2}
24: {1,1,1,2}
36: {1,1,2,2}
48: {1,1,1,1,2}
60: {1,1,2,3}
72: {1,1,1,2,2}
96: {1,1,1,1,1,2}
120: {1,1,1,2,3}
144: {1,1,1,1,2,2}
180: {1,1,2,2,3}
192: {1,1,1,1,1,1,2}
216: {1,1,1,2,2,2}
240: {1,1,1,1,2,3}
288: {1,1,1,1,1,2,2}
384: {1,1,1,1,1,1,1,2}
420: {1,1,2,3,4}
432: {1,1,1,1,2,2,2}
480: {1,1,1,1,1,2,3}
576: {1,1,1,1,1,1,2,2}
768: {1,1,1,1,1,1,1,1,2}
840: {1,1,1,2,3,4}
864: {1,1,1,1,1,2,2,2}
960: {1,1,1,1,1,1,2,3}
MATHEMATICA
Join@@Position[Table[Switch[n, 1, 0, _?PrimeQ, 1, _, NestWhile[Sort[Length/@Split[#]]&, Sort[Last/@FactorInteger[n]], Length[#]>1&]//First], {n, 100}], 2]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, May 15 2018
STATUS
approved