%I#8 2015年12月31日03:12:51

%S 0,1106,37,53103,42,23,29,19,0,56,21,38,18,35,17,16,14,26,0,12,96，

%电话：439132081812703754,24,0165726,64603,15592,27,13479,0261，

%U 541277,481129437649524538,02914061359533,933774661052279,0

%N从序列A050782来看，N对应于m的第一次出现（如果未定义，则为0）。

%t nmax=60；清除[f]；f[max_]：=f[max]=（r=Reap[For[n=1，n<=max，n++，k=1；If[IntegerQ[n/10]，m=0，While[k<=max&&Reverse[id=IntegerDigits[k*n]]！=id，k++；m=k]；Sow[{n，m}]][[2，1]]；a[0]=0；a[n]：=（s=Select[r，#[2]]=n&，1]；If，0，s[[1，1]]）；表[a[n]，{n，0，nmax}]）；f[nmax]；f[最大值=2 nmax]；而[Print[“max=”，max]；f[最大值]！=f[最大值/2]，最大值=2最大值]；A050810=f[最大值]（*_Jean-François Alcover_，2015年12月31日*）

%Y参考A002113、A050782。

%K nonn，基本，不错

%0、3

%A _帕特里克·德·吉斯特，1999年10月15日