OFFSET
1,2
COMMENTS
LINKS
Muniru A Asiru, Table of n, a(n) for n = 1..2000
EXAMPLE
a(5)=21 because sum of aliquot divisors of 21( which is a triangular number) is 1+3+7=11 which is less than 21, hence it is deficient. 21 is 5th deficient triangular number.
MAPLE
with(numtheory): [select(n -> sigma(n) < 2*n, [seq(k*(k+1)/2, k=1..100)])]; # Muniru A Asiru, Mar 22 2018
MATHEMATICA
Select[Accumulate[Range[100]], DivisorSigma[1, #]<2#&] (* Harvey P. Dale, Jun 12 2023 *)
PROG
(GAP) Filtered(List([1..100], k->k*(k+1)/2), n->Sigma(n)<2*n); # Muniru A Asiru, Mar 22 2018
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Shyam Sunder Gupta, Sep 22 2002
STATUS
approved