login
Numbers k such that A049445(k) is odd.
2

%I #8 Aug 16 2020 11:33:23

%S 1,11,19,24,27,33,43,51,54,68,71,74,76,83,89,90,98,101,107,117,130,

%T 135,138,144,151,153,156,163,165,178,181,188,195,199,203,205,207,212,

%U 215,226,230,235,238,244,249,251,258,267,272,278,282,285,294,298,304,305,325,327

%N Numbers k such that A049445(k) is odd.

%H Amiram Eldar, <a href="/A152567/b152567.txt">Table of n, a(n) for n = 1..10000</a>

%t Position[Select[Range[1, 1500], Divisible[#, DigitCount[#, 2, 1]] &], _?OddQ] // Flatten (* _Amiram Eldar_, Aug 16 2020 *)

%Y Cf. A005349, A049445, A144302.

%K nonn

%O 1,2

%A _Roger L. Bagula_, Dec 07 2008

%E Edited by _N. J. A. Sloane_, Dec 07 2008