The OEIS is supported by the many generous donors to the OEIS Foundation.
%I #11 Jun 17 2018 02:44:54
%S 3,5,7,9,11,13,14,15,17,19,22,23,25,26,27,28,29,30,31,33,35,37,38,39,
%T 41,43,44,45,46,47,49,50,51,52,53,54,56,57,58,59,61,62,63,65,67,70,71,
%U 73,74,75,76,77,78,79,82,83,85,86,87,88,89,90,91,93,94,95,97,98,99,100
%N Numbers which are not an integer multiple of their number of binary 1's.
%H Harry J. Smith, <a href="/A065878/b065878.txt">Table of n, a(n) for n = 1..1000</a>
%e 5 is in the sequence since 5 = 101_2 and 5 is not a multiple of 1 + 0 + 1 = 2.
%t Select[Range[100],!IntegerQ[#/Total[IntegerDigits[#,2]]]&] (* _Harvey P. Dale_, Apr 20 2011 *)
%o (PARI) Count(x, d)= { local(c=0, f); while (x>9, f=x%10; if (f==d, c++); x\=10); if (x==d, c++); return(c) } baseE(x, b)= { local(d, e=0, f=1); while (x>0, d=x%b; x\=b; e+=d*f; f*=10); return(e) } { n=0; for (m=1, 10^9, if (m%Count(baseE(m, 2), 1), write("b065878.txt", n++, " ", m); if (n==1000, return)) ) } \\ _Harry J. Smith_, Nov 03 2009
%Y Complement of A049445. The base-10 equivalent is A065877. Cf. A000120, A049445, A058898, A065413, A065879, A065880.
%K base,nonn
%O 1,1
%A _Henry Bottomley_, Nov 26 2001