OFFSET
1,1
EXAMPLE
a(1) = 4 because bin(4) = 100.
MATHEMATICA
fQ[n_] := Block[{st = Union@Split@IntegerDigits[n, 2]}, MemberQ[st, {0, __}] && !MemberQ[st, {1, __}]]; Select[Range@ 288, fQ@# &] (* Robert G. Wilson v, Dec 21 2008 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Gil Broussard, Dec 17 2008
EXTENSIONS
Extended by Robert G. Wilson v, Dec 21 2008
STATUS
approved