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.
%I A079252 #11 Feb 13 2019 07:57:32 %S A079252 2,10,12,14,22,24,26,28,30,32,46,48,50,52,54,56,58,60,62,64,66,68,94, %T A079252 96,98,100,102,104,106,108,110,112,114,116,118,120,122,124,126,128, %U A079252 130,132,134,136,138,140,190,192,194,196,198,200,202,204,206 %N A079252 Even numbers not in A079000. %H A079252 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 A079252 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 A079252 See A079250 for formula. %t A079252 nmax = 150; %t A079252 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 A079252 Complement[Range[2, b[nmax], 2], Table[b[n], {n, 1, nmax}]] (* _Jean-François Alcover_, Feb 13 2019 *) %K A079252 nonn %O A079252 1,1 %A A079252 _N. J. A. Sloane_, Feb 04 2003