A268677 Complement of A268678; numbers that do not occur in A268395.

2, 6, 9, 10, 12, 13, 14, 17, 21, 24, 25, 28, 29, 30, 33, 35, 38, 39, 43, 44, 45, 46, 49, 51, 54, 55, 58, 61, 62, 63, 67, 68, 71, 73, 76, 77, 78, 79, 80, 84, 85, 88, 91, 94, 95, 96, 97, 99, 100, 103, 107, 110, 111, 112, 114, 115, 118, 122, 125, 126, 128, 129, 130, 133, 137, 140, 141, 143, 144, 145, 146, 149, 152

Offset: 1

Author

Antti Karttunen, Feb 10 2016

Keywords

• nonn

Links

• Antti Karttunen, Table of n, a(n) for n = 1..32768

Crossrefs

Cf. A268395, A268678.

Cf. A268712.

Cf. also A096346.

Programs

Mathematica

f[n_] := Which[n == 1, 0, OddQ@ #, 0, EvenQ@ #, 1 + f[#/2]] &@ Fold[BitXor, n, Quotient[n, 2^Range[BitLength@ n - 1]]]; Complement[Range@ #, Union@ Accumulate@ Array[f, {#}]] &@ 152 (* Michael De Vlieger, Feb 12 2016, after Jan Mangaldan at A006068 *)