A115036 Even terms of A116883.

6, 10, 14, 18, 20, 22, 26, 28, 30, 34, 36, 38, 42, 44, 46, 50, 52, 54, 58, 60, 62, 66, 68, 70, 72, 74, 76, 78, 82, 84, 86, 88, 90, 92, 94, 98, 100, 102, 104, 106, 108, 110, 114, 116, 118, 120, 122, 124, 126, 130, 132, 134, 136, 138, 140, 142, 146, 148, 150, 152

Offset: 1

Author

Leroy Quet, Feb 26 2006

Keywords

• nonn
• easy

Comments

The union of this sequence and the sequence of odd positive integers is sequence A116883.

Examples

			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.
		

Links

• Charles R Greathouse IV, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A116883.

Programs

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 *)

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

Extensions

More terms from Stefan Steinerberger, Oct 16 2007