A079252 - OEIS

%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