login
A035322
Sum of composite divisors of n that are less than n and are not primes nor prime powers.
4
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 6, 0, 0, 0, 0, 0, 6, 0, 10, 0, 0, 0, 18, 0, 0, 0, 14, 0, 31, 0, 0, 0, 0, 0, 36, 0, 0, 0, 30, 0, 41, 0, 22, 15, 0, 0, 42, 0, 10, 0, 26, 0, 24, 0, 42, 0, 0, 0, 93, 0, 0, 21, 0, 0, 61, 0, 34, 0, 59, 0, 96, 0, 0, 15, 38, 0, 71, 0, 70, 0, 0, 0, 123, 0, 0, 0, 66, 0
OFFSET
1,12
LINKS
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