OFFSET
1,2
COMMENTS
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
nioQ[n_]:=Min[Length/@Select[Split[IntegerDigits[n, 2]], FreeQ[#, 0]&]]>2; Select[ Range[ 0, 1000], nioQ] (* Harvey P. Dale, Jan 12 2023 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Reinhard Zumkeller, Feb 07 2010
STATUS
approved