|
|
|
|
1, 3, 6, 10, 15, 22, 30, 39, 49, 60, 73, 87, 102, 118, 135, 154, 175, 197, 220, 245, 271, 298, 327, 358, 390, 423, 457, 492, 529, 567, 606, 647, 690, 734, 779, 825, 872, 921, 971, 1022, 1074, 1127, 1182, 1239, 1297, 1356, 1417, 1479, 1542, 1606, 1671, 1738, 1806, 1875, 1946
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
Accumulate[Select[Range[100], DivisorSigma[1, #]<2#&]] (* Harvey P. Dale, Apr 11 2011 *)
|
|
PROG
|
(GAP) D:=Filtered([1..80], n->Sigma(n)<2*n);;
a:=List([1..Length(D)], i->Sum([1..i], j->D[j])); # Muniru A Asiru, Jun 08 2018
(PARI) lista(nn) = {my(s = 0); for (n=1, nn, if (sigma(n) < 2*n, s += n; print1(s, ", ")); ); } \\ Michel Marcus, Jun 09 2018
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|