This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A066482 #9 May 22 2016 12:59:52
%S A066482 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,
%T A066482 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,
%U A066482 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
%N A066482 The smallest anti-divisor of n.
%C A066482 Almost identical to A007978, least non-divisor of n, but there are some subtle differences.
%C A066482 See A066272 for definition of anti-divisor.
%H A066482 Seiichi Manyama, <a href="/A066482/b066482.txt">Table of n, a(n) for n = 3..10000</a>
%t A066482 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} ]
%Y A066482 Cf. A066481.
%K A066482 nonn
%O A066482 3,1
%A A066482 _Robert G. Wilson v_, Jan 02 2002