%I#37 2022年9月8日08:45:14

%S 0,1,2,3,4,5,6,7,8,9,11252494545767818989288245546141694249，

%电话：17777125665233553313888314165614883738831744713102757201，

%电话：10359530112361632112445442120753502208373802212313229232922

%以10和17为底的回文数字。

%H Robert G.Wilson v，n表，n=1..70的a（n）

%t NextPalindrome[n_]：=块[{l=Floor[Log[10，n]+1]，idn=IntegerDigits[n]}，如果[Union[idn]=={9}，Return[2]，如果[l<2，Return[n+1]，如果[FromDigits[Reverse[Take[idn，Ceiling[l/2]]]]]FromDiges[Take[idn，-Ciling[1/2]]，FromDigs[Join[Take[2，Ceiling[l/2]]，Reverse[Take[id，Floor[l/2]2]]]]，idfhn=FromDigits[Take[idn，Ceiling[l/2]]]+1；idp=FromDigits[Join[IntegerDigits[idfhn]，Drop[Reverse[Integer Digits[idfhn]]，Mod[l，2]]]]]；palQ[n_Integer，base_Integer]：=块[{idn=IntegerDigits[n，base]}，idn==反转[idn]]；l={0}；a=0；Do[a=下一个回文[a]；如果[palQ[a，17]，AppendTo[l，a]]，{n，40000}]；l（*Robert G.Wilson v_，2004年9月3日*）

%t b1=10；b2=17；lst={}；Do[d1=整数位数[n，b1]；d2=整数位数[n，b2]；如果[d1==反转[d1]&&d2==反转[d2]，追加到[lst，n]]，{n，0，10000000}]；第1期（*文森佐图书馆，2014年11月23日*）

%t选择[范围[0，10^5]，

%t回文Q[#]&#==整数反转[#，17]&]（*_Robert Price_，2019年11月9日*）

%o（岩浆）[0..10000000]中的n：n | Intseq（n，10）eq反向（Intseq，10））和Intseq_文森佐·利班迪（Vincenzo Librandi），2014年11月23日

%Y参见A007632、A007633、A029961、A0299602、A0299963、A029.964、A029804、A02.9965、A029666、A029977、A029988、A029699、A029870、A029731、A099165。

%K基，nonn

%氧1,3

%2004年8月31日，A Clino Hilliard

%E更多条款摘自Robert G.Wilson v_，2004年9月3日

%E第0学期由_Robert G.Wilson编写，2014年10月7日