%I#9 2017年12月15日17:36:26
%S 45,54250495951131131122622502622750292633339334154,
%电话:44894514454546364995545808599462926364655078008085,
%电话:87499478984412441139801426914421151671518015602162371844918977
%N非回文N及其数字反转具有相同的素数因子和(具有重复性)。
%H Harvey P.Dale,n的表,n=1..500的a(n)</a>
%e a(3)=250,因为250=2*5^3,52=2^2*13,2+5+5=2+2+13=17。
%t spf[n_]:=总计[Flatten[表[#[[1]],#[[2]]]&/@FactorInteger[n]]];spffQ[n_]:=!回文Q[n]&&spf[n]==spf[IntegerReverse[n]];选择[Range[20000],spffQ](*需要Mathematica版本10或更高版本*)(*Harvey P.Dale_,2017年5月19日*)
%Y参考A001414、A085870。
%K基,nonn
%O 1,1号机组
%A _Jason Earls,2003年7月8日
%E由T.D.Noe_修订,2006年10月25日
|