OFFSET
1,4
COMMENTS
Möbius-transform of A294337. - Antti Karttunen, Jun 12 2018
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..65537
FORMULA
a(1) = 1; for n > 1, a(n) = Sum_{d|A052409(n)} a(d). - Antti Karttunen, Jun 12 2018, after Mathematica-code.
EXAMPLE
The a(4096) = 7 ways are: 2^12, 4^6, 8^4, 8^(2^2), 16^3, 64^2, 4096.
MATHEMATICA
Array[1+Sum[#0[g], {g, Rest[Divisors[GCD@@FactorInteger[#1][[All, 2]]]]}]&, 200]
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Oct 28 2017
EXTENSIONS
More terms from Antti Karttunen, Jun 12 2018
STATUS
approved