OFFSET
1,2
COMMENTS
All terms except first one appear to be even. - Michel Marcus, Jul 15 2013
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..500
kaleidoscopic numbers [broken link]
MATHEMATICA
aQ[n_] := DivisorSum[n, # * (-1)^# &, # < Sqrt[n] & ] == 0; Select[Range[10^4], aQ] (* Amiram Eldar, Sep 23 2019 *)
PROG
(PARI) isok(n) = {so = 0; se = 0; fordiv (n, d, if (d < sqrt(n), if (d % 2, so += d, se += d))); return (so == se); } \\ Michel Marcus, Jul 14 2013
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
EXTENSIONS
Prepended a(1)=1, Michel Marcus, Jul 15 2013
STATUS
approved