A189799 Least position k of n (n written in base 2) in the infinite string 101110111110111101100011001110111... (i.e., 23571113171923... in base 2).

1, 1, 3, 19, 1, 4, 3, 19, 24, 50, 1, 18, 4, 3, 7, 86, 19, 44, 24, 50, 56, 16, 1, 18, 23, 49, 4, 42, 3, 8, 7, 177, 86, 185, 19, 100, 44, 52, 24, 225, 50, 478, 56, 16, 47, 1, 5, 85, 18, 43, 23, 49, 55, 15, 4

Offset

1,3

Links

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

Example

1 appears as (1)0111..., 2 appears as (10)111011..., 3 as 10(11)10111..., 4 as 101110111110111101(100)0...

Maple

A189799 := proc(n)
        local abin , nbin , nlen;
        abin := ListTools[Reverse](convert(A154703(100), base, 10)) ;
        nbin := ListTools[Reverse](convert(n, base, 2)) ;
        nlen := nops(nbin) ;
        for i from 1 do
                if verify(nbin, [op(i..i+nlen-1, abin)], 'sublist') then
                        return i;
                end if;
        end do:
        return 0 ;
end proc:
seq(A189799(n), n=1..55) ; # R. J. Mathar, Jun 07 2011

Crossrefs

Cf. A004676, A007088, A154703.

Sequence in context: A157580 A101293 A227882 * A300946 A364298 A078096

Adjacent sequences: A189796 A189797 A189798 * A189800 A189801 A189802

Keyword

nonn,base

Author

Juri-Stepan Gerasimov, May 24 2011

Extensions

Corrected by R. J. Mathar, Jun 07 2011

Status

approved