OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
FORMULA
MATHEMATICA
Select[DivisorSigma[1, Range[100]], EvenQ] (* Harvey P. Dale, Jun 18 2017 *)
PROG
(PARI) list(lim) = select(x -> !(x % 2), vector(lim, i, sigma(i))); \\ Amiram Eldar, Dec 26 2024
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Omar E. Pol, Dec 10 2008
STATUS
approved