OFFSET
1,1
LINKS
Donovan Johnson, Table of n, a(n) for n = 1..200
MATHEMATICA
oblongQ[n_] := IntegerQ[(-1 + Sqrt[1 + 4*n])/2]; s = Select[Range[24000], oblongQ[DivisorSigma[1, # (# + 1)]] &]; s * (s + 1) (* T. D. Noe, Jun 12 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Alex Ratushnyak, Jun 05 2013
STATUS
approved