A099994 Bisection of A002113.

0, 2, 4, 6, 8, 11, 33, 55, 77, 99, 111, 131, 151, 171, 191, 212, 232, 252, 272, 292, 313, 333, 353, 373, 393, 414, 434, 454, 474, 494, 515, 535, 555, 575, 595, 616, 636, 656, 676, 696, 717, 737, 757, 777, 797, 818, 838, 858, 878, 898, 919, 939, 959, 979, 999, 1111, 1331, 1551, 1771, 1991

Offset: 1

Author

N. J. A. Sloane, Nov 20 2004

Keywords

• nonn
• base
• easy

Programs

Mathematica

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}]

Extensions

Extended with Mathematica program by Farideh Firoozbakht, Dec 01 2004