OFFSET
1,12
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
Table[ Plus @@ Select[ Divisors[ n ], (Length[ FactorInteger[ # ] ]>1 && #<n )& ], {n, 1, 100} ]
scd[n_]:=Total[Select[Most[Divisors[n]], CompositeQ[#]&&!PrimePowerQ[#]&]]; Array[scd, 90] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jan 09 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Description corrected by Jack Brennen, Mar 28 2001
STATUS
approved