login
A066482
The smallest anti-divisor of n.
2
2, 3, 2, 4, 2, 3, 2, 3, 2, 5, 2, 3, 2, 3, 2, 4, 2, 3, 2, 3, 2, 7, 2, 3, 2, 3, 2, 4, 2, 3, 2, 3, 2, 8, 2, 3, 2, 3, 2, 4, 2, 3, 2, 3, 2, 5, 2, 3, 2, 3, 2, 4, 2, 3, 2, 3, 2, 7, 2, 3, 2, 3, 2, 4, 2, 3, 2, 3, 2, 5, 2, 3, 2, 3, 2, 4, 2, 3, 2, 3, 2, 8, 2, 3, 2, 3, 2, 4, 2, 3, 2, 3, 2, 64, 2, 3, 2, 3
OFFSET
3,1
COMMENTS
Almost identical to A007978, least non-divisor of n, but there are some subtle differences.
See A066272 for definition of anti-divisor.
LINKS
MATHEMATICA
antid[n_] := Select[ Union[ Join[ Select[ Divisors[2n - 1], OddQ[ # ] && # != 1 &], Select[ Divisors[2n + 1], OddQ[ # ] && # != 1 &], 2n/Select[ Divisors[2*n], OddQ[ # ] && # != 1 &]]], # < n & ]; Table[ First[ antid[n]], {n, 3, 100} ]
CROSSREFS
Cf. A066481.
Sequence in context: A127237 A340218 A199968 * A324507 A123725 A089080
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jan 02 2002
STATUS
approved