|
%I #6 Mar 30 2012 17:37:42
%S 0,2,4,6,8,11,33,55,77,99,111,131,151,171,191,212,232,252,272,292,313,
%T 333,353,373,393,414,434,454,474,494,515,535,555,575,595,616,636,656,
%U 676,696,717,737,757,777,797,818,838,858,878,898,919,939,959,979,999,1111,1331,1551,1771,1991
%N Bisection of A002113.
%t r[n_]:=FromDigits[Reverse[IntegerDigits[n]]];v={}; Do[If[r[n]==n, v=Append[v, n]], {n, 0, 2200}];Table[v[[2k-1]], {k, Floor[Length[v]]/2}]
%K nonn,base,easy
%O 1,2
%A _N. J. A. Sloane_, Nov 20 2004
%E Extended with Mathematica program by _Farideh Firoozbakht_, Dec 01 2004
|
