perl -le'$==0,(1x$_)=~/(^)(|1(?2)(?2)(?(?{})))$(?{$=++})^/,print$=for 0..13'

##</code><code>##

perl -le'$==0,(1x$_)=~/^(|()1(?1)(?1)\2)$(?{$=++})^/,print$=for 0..13'