2<?for(;bcpowmod(2,++$i,$i)*$i^strrev($i)*2?2e4>$i:print"
$i";);