OFFSET
1,2
FORMULA
a(n) = A183096(n) + 1.
EXAMPLE
The a(72) = 8 divisors of 72 that are either 1 or not a perfect power are {1, 2, 3, 6, 12, 18, 24, 72}. Missing are {4, 8, 9, 36}.
MATHEMATICA
Table[DivisorSum[n, Boole[GCD@@FactorInteger[#][[All, 2]]==1]&], {n, 100}]
PROG
(PARI) a(n) = sumdiv(n, d, !ispower(d)); \\ Michel Marcus, May 19 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, May 18 2018
STATUS
approved