|
| |
|
|
A066482
|
|
The smallest anti-divisor of n.
|
|
0
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
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.
|
|
|
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
| Sequence in context: A050206 A127237 A199968 * A123725 A089080 A085058
Adjacent sequences: A066479 A066480 A066481 * A066483 A066484 A066485
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Robert G. Wilson v (rgwv(AT)rgwv.com), Jan 02 2002
|
| |
|
|
