|
%I #11 Sep 04 2018 14:32:33
%S 4,6,8,16,18,20,34,36,38,40,42,44,70,72,74,76,78,80,82,84,86,88,90,92,
%T 142,144,146,148,150,152,154,156,158,160,162,164,166,168,170,172,174,
%U 176,178,180,182,184,186,188,286,288,290,292,294,296,298,300
%N Even numbers in A079000.
%H B. Cloitre, N. J. A. Sloane and M. J. Vandermast, <a href="https://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 {4, 6, 8} and Union_{k >=1} {2i : 9*2^(k-1)-1 <= i <= 3*2^(k+1)-2 }.
%t (* b = A079000 *) 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 Select[Array[b, 300], EvenQ] (* _Jean-François Alcover_, Sep 04 2018 *)
%K nonn
%O 1,1
%A _N. J. A. Sloane_, Feb 04 2003
|
