perl -e 'while ($n = $i * ++ $i) {print "$n\n" if not length($n) % 2 and reverse ($n) == $n}'
698896
637832238736
。。。
接下來慢慢跑吧
perl -e 'while ($n = $i * ++ $i) {print "$n\n" if not length($n) % 2 and reverse ($n) == $n}'
698896
637832238736
。。。
接下來慢慢跑吧