%I #9 Jan 25 2023 22:23:05

%S 1,2,3,5,6,7,8,9,10,11,13,14,15,17,18,19,21,22,23,24,25,26,27,29,30,

%T 31,32,33,34,35,37,38,39,40,41,42,43,45,46,47,49,50,51,53,54,55,56,57,

%U 58,59,61,62,63,65,66,67,69,70,71,72,73,74,75,77,78,79,81,82,83,85,86,87,88,89,90,91,93,94

%N Union of odd numbers and numbers with an odd 2-adic valuation.

%C Numbers not of the form (2*m - 1)*4^k where m >= 1, k >= 1.

%C Numbers k for which the parities of k and A048675(k) differ.

%C The asymptotic density of this sequence is 5/6. - _Amiram Eldar_, Jan 25 2023

%t Select[Range[100], OddQ[#] || OddQ[IntegerExponent[#, 2]] &] (* _Amiram Eldar_, Jan 25 2023 *)

%o (PARI) isA359794(n) = A359832(n);

%Y Union of A005408 and A036554.

%Y Complement of A108269.

%Y Cf. A048675, A359832 (characteristic function).

%K nonn

%O 1,2

%A _Antti Karttunen_, Jan 25 2023