OFFSET
1,1
COMMENTS
The union of this sequence and the sequence of odd positive integers is sequence A116883.
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
EXAMPLE
The highest odd divisor of 20 (which is 5) is greater than the highest power of 2 dividing 20 (which is 4) and 20 is even, so 20 is in this sequence.
MATHEMATICA
a = {}; For[n = 2, n < 200, n = n + 2, If[Select[Divisors[n], OddQ[ # ] &][[ -1]]^2 > n - 1, AppendTo[a, n]]]; a (* Stefan Steinerberger, Oct 16 2007 *)
PROG
(PARI) list(lim)=my(v=List(), t, M); forstep(k=3, lim\2, 2, t=k+k; M=min(lim, k^2); while(t<=M, listput(v, t); t+=t)); vecsort(Vec(v)) \\ Charles R Greathouse IV, Mar 16 2011
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Leroy Quet, Feb 26 2006
EXTENSIONS
More terms from Stefan Steinerberger, Oct 16 2007
STATUS
approved