cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

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

This page as a plain text file.
%I A268677 #10 Feb 13 2016 23:16:33
%S A268677 2,6,9,10,12,13,14,17,21,24,25,28,29,30,33,35,38,39,43,44,45,46,49,51,
%T A268677 54,55,58,61,62,63,67,68,71,73,76,77,78,79,80,84,85,88,91,94,95,96,97,
%U A268677 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
%N A268677 Complement of A268678; numbers that do not occur in A268395.
%H A268677 Antti Karttunen, <a href="/A268677/b268677.txt">Table of n, a(n) for n = 1..32768</a>
%t A268677 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 *)
%o A268677 (Scheme, with _Antti Karttunen_'s IntSeq-library)
%o A268677 (define A268677 (COMPLEMENT 1 A268678))
%Y A268677 Cf. A268395, A268678.
%Y A268677 Cf. A268712.
%Y A268677 Cf. also A096346.
%K A268677 nonn
%O A268677 1,1
%A A268677 _Antti Karttunen_, Feb 10 2016