A065878 Numbers which are not an integer multiple of their number of binary 1'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, 41, 43, 44, 45, 46, 47, 49, 50, 51, 52, 53, 54, 56, 57, 58, 59, 61, 62, 63, 65, 67, 70, 71, 73, 74, 75, 76, 77, 78, 79, 82, 83, 85, 86, 87, 88, 89, 90, 91, 93, 94, 95, 97, 98, 99, 100

Offset

1,1

Links

Harry J. Smith, Table of n, a(n) for n = 1..1000

Example

5 is in the sequence since 5 = 101_2 and 5 is not a multiple of 1 + 0 + 1 = 2.

Mathematica

Select[Range[100], !IntegerQ[#/Total[IntegerDigits[#, 2]]]&]  (* Harvey P. Dale, Apr 20 2011 *)

Prog

(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

Crossrefs

Complement of A049445. The base-10 equivalent is A065877. Cf. A000120, A049445, A058898, A065413, A065879, A065880.

Sequence in context: A371179 A231773 A007617 * A186383 A284055 A248564

Adjacent sequences: A065875 A065876 A065877 * A065879 A065880 A065881

Keyword

base,nonn

Author

Henry Bottomley, Nov 26 2001

Status

approved