print$p[$_-$'-//-1]>>??,$/for@p=grep/341/==2-2**$_%$_,3..$$