STATUS
proposed
approved
The OEIS is supported by the many generous donors to the OEIS Foundation.
Revision History for A092679
(Bold, blue-underlined text is an addition; faded, red-underlined text is aShowing entries 1-10 | older changes
STATUS
editing
proposed
KEYWORD
more,nonn
nonn,hard,more
STATUS
approved
editing
STATUS
editing
approved
LINKS
Jon Perry, <a href="http://www.users.globalnet.co.uk/~perry/maths/uniqueantidivisor.htm#antiprime
STATUS
proposed
editing
STATUS
editing
proposed
NAME
Numbers n k such that 3*2^n k has only one anti-divisor.
STATUS
approved
editing
PROG
A092679 = [i for i, n in enumerate(map(lambda x:3*2**x, xrangerange(20))) if len([d for d in range(2, n, 2) if n%d and not 2*n%d]+[d for d in range(3, n, 2) if n%d and 2*n%d in [d-1, 1]])==1] # Chai Wah Wu, Aug 09 2014
PROG
A092679 = [i for i, n in enumerate(map(lambda x:3*2**x, xrange(20))) if len([d for d in xrangerange(2, n, 2) if n%d and not 2*n%d]+[d for d in xrangerange(3, n, 2) if n%d and 2*n%d in [d-1, 1]])==1] # Chai Wah Wu, Aug 09 2014
STATUS
reviewed
approved