The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation. Thanks to everyone who made a donation during our annual appeal!
To see the list of donors, or make a donation, see the OEIS Foundation home page.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A188529 Numbers which contain only the digit 3 in their base-4 representation, with at most one exception. If the exception is the most-significant digit, it must be the digit 1 or 2, otherwise the exception must be the digit 2. 6

%I

%S 1,2,3,7,11,14,15,31,47,59,62,63,127,191,239,251,254,255,511,767,959,

%T 1007,1019,1022,1023,2047,3071,3839,4031,4079,4091,4094,4095,8191,

%U 12287,15359,16127,16319,16367,16379,16382,16383,32767,49151,61439,64511,65279,65471,65519

%N Numbers which contain only the digit 3 in their base-4 representation, with at most one exception. If the exception is the most-significant digit, it must be the digit 1 or 2, otherwise the exception must be the digit 2.

%C The sequence lists the positive binomial coefficient predictors in base 4. For definition, see paper in link.

%C A subsequence of A089633.

%H V. Shevelev, <a href="http://www.cs.uwaterloo.ca/journals/JIS/VOL14/Shevelev/shevelev14.html">Binomial Coefficient Predictors</a>, Journal of Integer Sequences, Vol. 14 (2011), Article 11.2.8

%e (767)_10 = (23333)_4 contains only digits 3, with the exception the leading digit which is 2. Therefore 767 is in the sequence.

%e (4091)_10 = (333323)_4 contains only digits 3, with the exception a digit 2.

%p isA188529 := proc(n) local dgs ,n3,p,d; dgs := convert(n,base,4); n3 := 0 ; for p from 1 to nops(dgs) do d := op(p,dgs) ; if d <> 3 then n3 := n3+1 ; if n3 >=2 then return false; end if; if p < nops(dgs) and d <> 2 then return false; end if; if p = nops(dgs) and d = 0 then return false; end if; end if; end do: return true; end proc:

%p A188529 := proc(n) option remember; local a; if n = 1 then 1; else for a from procname(n-1)+1 do if isA188529(a) then return a; end if; end do; end if; end proc:

%p seq(A188529(n),n=1..50) ; # _R. J. Mathar_, Apr 03 2011

%Y Cf. A024036, A089633, A188341, A188499.

%K nonn,base

%O 1,2

%A _Vladimir Shevelev_, Apr 03 2011

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified January 18 19:46 EST 2020. Contains 331030 sequences. (Running on oeis4.)