A043758 Numbers n such that number of runs in the base 2 representation of n is congruent to 4 mod 9.

10, 18, 20, 22, 26, 34, 36, 38, 40, 44, 46, 50, 52, 54, 58, 66, 68, 70, 72, 76, 78, 80, 88, 92, 94, 98, 100, 102, 104, 108, 110, 114, 116, 118, 122, 130, 132, 134, 136, 140, 142, 144, 152, 156, 158, 160, 176, 184, 188, 190, 194, 196

Offset

1,1

Links

Table of n, a(n) for n=1..52.

Formula

{n : A005811(n) == 4 (mod 9)}. - R. J. Mathar, Feb 16 2013

Maple

A043758 := proc(n)
    option remember;
    if n = 1 then
        10;
    else
        for a from procname(n-1)+1 do
            if modp(A005811(a), 9) = 4 then
                return a;
            end if;
        end do:
    end if;
end proc: # R. J. Mathar, Feb 16 2013

Mathematica

Select[Range[200], Mod[Length[Split[IntegerDigits[#, 2]]], 9]==4&] (* Harvey P. Dale, Jul 21 2013 *)

Crossrefs

Sequence in context: A043737 A043743 A043750 * A043767 A290002 A072992

Adjacent sequences: A043755 A043756 A043757 * A043759 A043760 A043761

Keyword

nonn,base

Author

Clark Kimberling

Status

approved