$d=++$i;$r||print"$i ",$r=0)while($d>9)$r|=abs($d%10-($d/=10)%10)<6;