OFFSET
1,1
COMMENTS
See A066272 for definition of anti-divisor.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..576 from Michael De Vlieger)
EXAMPLE
MATHEMATICA
a066417[n_Integer] := Total[Cases[Range[2, n - 1], _?(Abs[Mod[n, #] - #/2] < 1 &)]]; Select[Range[10000], If[a066417[#] > 2 #, True, False] &] (* Michael De Vlieger, Aug 09 2014 *)
PROG
(Python)
A073954 = [n for n in range(1, 10**5) if sum([d for d in range(2, n, 2) if n%d and not 2*n%d])+sum([d for d in range(3, n, 2) if n%d and 2*n%d in [d-1, 1]]) > 2*n] # Chai Wah Wu, Aug 09 2014
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Jason Earls, Sep 03 2002
STATUS
approved