怎样搜寻回文的单词或数字？

1、判断字符串是否回文：

PalindromeQ["甜水甜"]

2、PalindromeQ["Aha"]

Aha就不是回文的，因为大小写不一致。

3、如果忽略大小写，那么Aha也是回文的：

PalindromeQ["Aha",IgnoreCase->True]

4、句子本身是回文的，但是标点符号导致判断错误：

PalindromeQ["人过大佛寺，寺佛大过人。"]

5、去掉标点符号，上面那句话就是回文的了。

6、判断数字是不是回文数。

7、有一个著名的回文数猜想，恰好可以尝试用mathematica来检验：

f[n_]:=IntegerReverse[n]+na=NestList[f,569,100];Table[If[PalindromeQ[a[[n]]],{n,a[[n]]},0],{n,1,Length[a]}]//Union

8、然而对于196，就难以检验了。

迭代10000次，都没发现回文数。