Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #21 Jul 11 2022 11:15:29
%S 5,11,17,20,23,29,35,41,44,47,53,59,65,68,71,77,80,83,89,92,95,101,
%T 107,113,116,119,125,131,137,140,143,149,155,161,164,167,173,176,179,
%U 185,188,191,197,203,209,212,215,221,227,233,236,239,245
%N Numbers k such that k == 2 (mod 3) and the exponent of the highest power of 2 dividing k is even.
%C Numbers that are both in A016789 and A003159.
%C It seems that lim_{n->oo} a(n)/n = 9/2. [This is true. The asymptotic density of this sequence is 2/9. - _Amiram Eldar_, Jan 16 2022]
%C Positions of -1 in the expansion of Sum_{k>=0} x^2^k/(1+x^2^k+x^2^(k+1)) (A084091).
%H Amiram Eldar, <a href="/A084088/b084088.txt">Table of n, a(n) for n = 1..10000</a>
%H <a href="/index/Ar#2-automatic">Index entries for 2-automatic sequences</a>.
%t Select[3 * Range[0, 81] + 2, EvenQ[IntegerExponent[#, 2]] &] (* _Amiram Eldar_, Jan 16 2022 *)
%o (PARI) for(n=0,300,if(valuation(n,2)%2==0&&n%3==2,print1(n",")))
%o (Python)
%o from itertools import count, islice
%o def A084088_gen(): # generator of terms
%o return filter(lambda n:(n&-n).bit_length()&1,count(2,3))
%o A084088_list = list(islice(A084088_gen(),30)) # _Chai Wah Wu_, Jul 11 2022
%Y Intersection of A016789 and A003159.
%Y Cf. A084091.
%Y A352273 without the multiples of 9.
%K nonn,easy
%O 1,1
%A _Ralf Stephan_, May 11 2003