A162194 Sum of divisors of nonprime number A018252(n).
1, 7, 12, 15, 13, 18, 28, 24, 24, 31, 39, 42, 32, 36, 60, 31, 42, 40, 56, 72, 63, 48, 54, 48, 91, 60, 56, 90, 96, 84, 78, 72, 124, 57, 93, 72, 98, 120, 72, 120, 80, 90, 168, 96, 104, 127, 84, 144, 126, 96, 144, 195, 114, 124, 140, 96, 168, 186, 121, 126, 224, 108, 132
Offset: 1
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Programs
-
Maple
with(NumberTheory): seq(`if`(isprime(n), NULL, sigma(n)), n = 1 .. 100); # Reza K Ghazi, Aug 28 2021
-
Mathematica
Join[{1},DivisorSigma[1,#]&/@Select[Range[100],CompositeQ]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, May 27 2017 *)
-
PARI
a = List(); for(n=1, 100, if(!isprime(n), listput(a, sigma(n)))); Vec(a) \\ Reza K Ghazi, Aug 28 2021
-
SageMath
[sigma(n) for n in range(1, 101) if not is_prime(n)] # Reza K Ghazi Aug 28 2021
Comments