g[n_]：=模块[{seen，r，d，l，i，t}，seen={}；r={}，d=整数位数[n]；l=长度[d]；对于[i=1，i<=l，i++，t=d[i]]；如果[！MemberQ[sseed，t]，r=Join[r，IntegerDigits[Count[d，t]]]；r=连接[r，{t}]；seen=附加[seen，t]]]；FromDigits[r]]；isPalin[n]：=（n=FromDigits[反向[整数位数[n]]]）；选择[范围[10^5]，isPalin[g[#]]&]
