login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A066464 Least number k such that k has n anti-divisors. 2
1, 3, 5, 7, 13, 17, 32, 38, 85, 67, 162, 137, 338, 203, 760, 247, 1225, 472, 578, 682, 1012, 787, 9112, 1463, 2048, 2047, 2888, 2363, 5513, 3465, 5512, 6682, 8978, 5197, 17672, 5198, 71442, 9653, 29768, 8662, 40898, 13513, 81608, 15593, 131072, 35437 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,2

COMMENTS

See A066272 for definition of anti-divisor.

LINKS

Donovan Johnson, Table of n, a(n) for n = 0..400

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 & ]]; a = Table[0, {50} ]; Do[ b = Length[ antid[n]]; If[ a[[b + 1]] == 0 && b < 50, a[[b + 1]] = n], {n, 1, 2^17} ]; a

CROSSREFS

Cf. A066272.

Sequence in context: A234388 A003424 A073638 * A062324 A194829 A226794

Adjacent sequences:  A066461 A066462 A066463 * A066465 A066466 A066467

KEYWORD

nonn

AUTHOR

Robert G. Wilson v, Jan 02 2002

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified October 15 22:45 EDT 2018. Contains 316252 sequences. (Running on oeis4.)