OFFSET
1,6
LINKS
Andrew Howroyd, Table of n, a(n) for n = 1..10000
EXAMPLE
The a(180) = 7 ways are (6*30), (12*15), (18*10), (30*6), (60*3), (90*2), (180*1).
MATHEMATICA
radQ[n_]:=And[n>1, GCD@@FactorInteger[n][[All, 2]]===1];
Table[Length[Select[Divisors[n], radQ[#]&&SquareFreeQ[n/#]&]], {n, 100}]
PROG
(PARI) a(n)={sumdiv(n, d, d<>1 && !ispower(d) && issquarefree(n/d))} \\ Andrew Howroyd, Aug 26 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, May 10 2018
STATUS
approved