OFFSET
1,1
COMMENTS
See A066272 for definition of anti-divisor.
MATHEMATICA
at[n_] := Count[Flatten[Quotient[#, Rest[Select[Divisors[#], OddQ]]] & /@ (2 n + Range[-1, 1])], Except[1]]; Select[Range[1485], at[#] == at[# + 1] == at[# + 2] &] (* Jayanta Basu, Jul 01 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Jason Earls, Aug 31 2002
STATUS
approved