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,1

Links

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

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 *)

Prog

(Scheme, with Antti Karttunen's IntSeq-library)
(define A268677 (COMPLEMENT 1 A268678))

Crossrefs

Cf. A268395, A268678.

Cf. A268712.

Cf. also A096346.

Sequence in context: A263495 A282079 A121248 * A108370 A325706 A367683

Adjacent sequences: A268674 A268675 A268676 * A268678 A268679 A268680

Keyword

nonn

Author

Antti Karttunen, Feb 10 2016

Status

approved