OFFSET
1,2
LINKS
R. Zumkeller, Table of n, a(n) for n = 1..10000
EXAMPLE
20 ->'10100', length = 5 ->'101', therefore 20 is a term;
200 ->'11001000', length = 8 ->'1000', therefore 200 is a term.
MATHEMATICA
lbrQ[n_]:=Module[{idn2=IntegerDigits[n, 2]}, SequenceCount[idn2, IntegerDigits[ Length[ idn2], 2]]>0]; Select[Range[200], lbrQ] (* The program uses the SequenceCount function from Mathematica version 10 *) (* Harvey P. Dale, Oct 07 2015 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Mar 03 2008
STATUS
approved