OFFSET
1,2
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..65537
FORMULA
EXAMPLE
The a(12) = 7 ways are: 2^12, 4^6, 8^4, 8^(2^2), 16^3, 64^2, 4096.
MATHEMATICA
a[n_]:=1+Sum[a[g], {g, Rest[Divisors[GCD@@FactorInteger[n][[All, 2]]]]}];
Table[a[2^n], {n, 100}]
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Oct 28 2017
EXTENSIONS
More terms from Antti Karttunen, Jun 12 2018
STATUS
approved