%I #11 Feb 13 2019 07:57:32
%S 2,10,12,14,22,24,26,28,30,32,46,48,50,52,54,56,58,60,62,64,66,68,94,
%T 96,98,100,102,104,106,108,110,112,114,116,118,120,122,124,126,128,
%U 130,132,134,136,138,140,190,192,194,196,198,200,202,204,206
%N Even numbers not in A079000.
%H B. Cloitre, N. J. A. Sloane and M. J. Vandermast, <a href="http://www.cs.uwaterloo.ca/journals/JIS/VOL6/Cloitre/cloitre2.html">Numerical analogues of Aronson's sequence</a>, J. Integer Seqs., Vol. 6 (2003), #03.2.2.
%H B. Cloitre, N. J. A. Sloane and M. J. Vandermast, <a href="http://arXiv.org/abs/math.NT/0305308">Numerical analogues of Aronson's sequence</a> (math.NT/0305308)
%F See A079250 for formula.
%t nmax = 150;
%t b[1] = 1; b[n_] := (k = Floor[Log[2, (n + 3)/6]]; j = n - (9 2^k - 3); 12 2^k - 3 + 3 j/2 + Abs[j]/2);
%t Complement[Range[2, b[nmax], 2], Table[b[n], {n, 1, nmax}]] (* _Jean-François Alcover_, Feb 13 2019 *)
%K nonn
%O 1,1
%A _N. J. A. Sloane_, Feb 04 2003