OFFSET
1,1
COMMENTS
MAPLE
q:= n-> (l-> nops(l)=3*add(i, i=l))(Bits[Split](n)):
select(q, [$1..2200])[]; # Alois P. Heinz, Feb 04 2022
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Ctibor O. Zizka, Oct 15 2008
STATUS
approved