OFFSET
1,3
COMMENTS
Every positive integer has a unique q-factorization (encoded by A324924) into factors q(i) = prime(i)/i, i > 0. For example:
11 = q(1) q(2) q(3) q(5)
50 = q(1)^3 q(2)^2 q(3)^2
360 = q(1)^6 q(2)^3 q(3)
For n > 1, a(n) is the multiplicity of q(1) = 2 in the q-factorization of 2^n - 1.
LINKS
EXAMPLE
The rooted tree with Matula-Goebel number 2047 = 2^11 - 1 is (((o)(o))(ooo(o))), which has 6 leaves (o's), so a(11) = 6.
MATHEMATICA
mglv[n_]:=If[n==1, 1, Total[Cases[FactorInteger[n], {p_, k_}:>mglv[PrimePi[p]]*k]]];
Table[mglv[2^n-1], {n, 30}]
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Gus Wiseman, May 12 2019
STATUS
approved