%I#6 2020年7月20日10:43:06
%第1、2、3、4、10120230340445450554560661663667670808818909页,
%电话:100120023003400450056006700780089000110110112002,
%电话:20202220222262300330330333424340044044323444044
%A085934中的N个回文。
%e 616是成员,因为按升序排序的616的数字是166,166的数字乘积是36,166+36=202是回文。
%t pdsQ[n_]:=模块[{ds=Sort[IntegerDigits[n]]},AllTrue[{n,FromDigits+Times@@ds},回文Q]];选择[Range[45000],pdsQ](*需要Mathematica版本10或更高版本*)(*Harvey P.Dale_,2020年7月20日*)
%Y参见A085932、A085933和A085934。
%K基础,简单,无
%O 1,2号机组
%杰森·厄尔斯和阿玛娜斯·穆尔西,2003年7月14日
|