id:A066482 - OEIS Search Results

Search: id:A066482

Displaying 1-1 of 1 results found.

page 1

The smallest anti-divisor of n.

+0
1

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; listen)

	OFFSET	`3,1`
	COMMENT	`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: A114383 A050206 A127237 this_sequence A089080 A123725 A085058` `Adjacent sequences: A066479 A066480 A066481 this_sequence A066483 A066484 A066485`
	KEYWORD	`nonn`
	AUTHOR	`Robert G. Wilson v (rgwv(AT)rgwv.com), Jan 02 2002`

page 1

Search completed in 0.002 seconds

Last modified August 19 23:53 EDT 2008. Contains 142930 sequences.

AT&T Labs Research