OFFSET
2,3
MATHEMATICA
nn=100;
facs[n_]:=If[n<=1, {{}}, Join@@Table[Map[Prepend[#, d]&, Select[facs[n/d], Min@@#>=d&]], {d, Rest[Divisors[n]]}]];
-Solve[Table[-1==Sum[Times@@a/@f, {f, facs[n]}], {n, 2, nn}], Table[a[n], {n, 2, nn}]][[1, All, 2]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Nov 24 2017
STATUS
approved