%I#6 2012年3月30日17:37:42
%S 1,3,5,7,9,22,44,66,8810112114116118120222224226222303,
%电话:323343363383042444444444845055254565585626646,
%电话:666686707727747777878088288488688890994996998910011211441166118812002
%A002113的N剖分。
%t r[n_]:=起始数字[Reverse[IntegerDigits[n]]];v={};做[If[r[n]==n,v=Append[v,n]],{n,0,2200}];表[v[[2k]],{k,地板[长度[v]]/2}]
%K nonn,基础,简单
%O 1,2号机组
%A _N.J.A.Sloane,2004年11月20日
%E通过Mathematica程序扩展,作者:_Farideh Firoozbakht,2004年12月1日
|