def f l
$d[l]||=($a-l).map{|i|l.all?{|j|$c[i].member? j}?f((l+[i]).sort):l.size}.max
end
while(n=gets.to_i)>0
$d={}
$a=(0..n-1).to_a
b=$a.map{eval"[#{gets}]"}
$c=$a.map{[]}
$a.product($a).map{|i,j|Math.hypot(*b[i].zip(b[j]).map{|i,j|i-j})<=2.01&&$c[i]<<j}
p f([])
end