A079250 Even numbers in A079000.

4, 6, 8, 16, 18, 20, 34, 36, 38, 40, 42, 44, 70, 72, 74, 76, 78, 80, 82, 84, 86, 88, 90, 92, 142, 144, 146, 148, 150, 152, 154, 156, 158, 160, 162, 164, 166, 168, 170, 172, 174, 176, 178, 180, 182, 184, 186, 188, 286, 288, 290, 292, 294, 296, 298, 300

Offset: 1

Author

N. J. A. Sloane, Feb 04 2003

Keywords

• nonn

Links

• B. Cloitre, N. J. A. Sloane and M. J. Vandermast, Numerical analogues of Aronson's sequence, J. Integer Seqs., Vol. 6 (2003), #03.2.2.
• B. Cloitre, N. J. A. Sloane and M. J. Vandermast, Numerical analogues of Aronson's sequence (math.NT/0305308)

Programs

Mathematica

(* 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);
Select[Array[b, 300], EvenQ] (* Jean-François Alcover, Sep 04 2018 *)

Formula

{4, 6, 8} and Union_{k >=1} {2i : 9*2^(k-1)-1 <= i <= 3*2^(k+1)-2 }.