|
Search: id:A076663
|
|
|
| A076663 |
|
a(n) = sum of sigma(e) where e ranges over all non-divisors of n that are between 1 and n. |
|
+0
1
|
|
| 0, 0, 3, 4, 14, 13, 32, 30, 51, 59, 86, 72, 126, 129, 154, 163, 219, 205, 276, 262, 326, 355, 406, 361, 484, 504, 546, 561, 659, 622, 761, 737, 840, 883, 944, 900, 1097, 1112, 1177, 1160, 1341, 1300, 1479, 1465, 1560, 1658, 1757, 1645, 1921, 1928, 2057, 2085
(list; graph; listen)
|
|
|
OFFSET
|
1,3
|
|
|
MATHEMATICA
|
f[n_] := Module[{s, i}, s = 0; For[i = 1, i < n, i++, If[Mod[n, i] != 0, s = s + DivisorSigma[1, i]]]; s]; Table[f[i], {i, 1, 100}]
|
|
CROSSREFS
|
Sequence in context: A122151 A082732 A009286 this_sequence A079274 A024863 A025107
Adjacent sequences: A076660 A076661 A076662 this_sequence A076664 A076665 A076666
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Joseph L. Pe (joseph_l_pe(AT)hotmail.com), Oct 24 2002
|
|
|
Search completed in 0.002 seconds
|
