A035322 Sum of composite divisors of n that are less than n and are not primes nor prime powers.
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
Keywords
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
Table[ Plus @@ Select[ Divisors[ n ], (Length[ FactorInteger[ # ] ]>1 && #
Harvey P. Dale, Jan 09 2019 *)
Extensions
Description corrected by Jack Brennen, Mar 28 2001