OFFSET
1,4
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..20000
EXAMPLE
The following are examples showing the reduction of a multiset starting with the multiset of prime multiplicities of n.
a(60) = 2: {1,1,2} -> {1,2} -> {1,1}.
a(360) = 3: {1,2,3} -> {1,1,1}.
a(1260) = 4: {1,1,2,2} -> {2,2}.
a(21492921450) = 6: {1,1,2,2,3,3} -> {2,2,2}.
MAPLE
a:= proc(n) map(i-> i[2], ifactors(n)[2]);
while nops({%[]})>1 do [coeffs(add(x^i, i=%))] od;
add(i, i=%)
end:
seq(a(n), n=1..100); # Alois P. Heinz, May 17 2018
MATHEMATICA
Table[If[n==1, 0, NestWhile[Sort[Length/@Split[#]]&, Sort[Last/@FactorInteger[n]], !SameQ@@#&]//Total], {n, 360}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, May 16 2018
STATUS
approved