A084090 Numbers k such that k is divisible by 3 or the exponent of the highest power of 2 dividing k is odd. Complement of A084087.
0, 2, 3, 6, 8, 9, 10, 12, 14, 15, 18, 21, 22, 24, 26, 27, 30, 32, 33, 34, 36, 38, 39, 40, 42, 45, 46, 48, 50, 51, 54, 56, 57, 58, 60, 62, 63, 66, 69, 70, 72, 74, 75, 78, 81, 82, 84, 86, 87, 88, 90, 93, 94, 96, 98, 99, 102, 104, 105, 106, 108, 110, 111
Offset: 1
Keywords
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
Select[Range[0,120],Divisible[#,3]||OddQ[IntegerExponent[#,2]]&] (* Harvey P. Dale, Jul 26 2017 *)
-
PARI
for(n=0,300,if(valuation(n,2)%2||n%3==0,print1(n",")))
Comments