A099995 Bisection of A002113.

1, 3, 5, 7, 9, 22, 44, 66, 88, 101, 121, 141, 161, 181, 202, 222, 242, 262, 282, 303, 323, 343, 363, 383, 404, 424, 444, 464, 484, 505, 525, 545, 565, 585, 606, 626, 646, 666, 686, 707, 727, 747, 767, 787, 808, 828, 848, 868, 888, 909, 929, 949, 969, 989, 1001, 1221, 1441, 1661, 1881, 2002

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]], {k, Floor[Length[v]]/2}]

Extensions

Extended with Mathematica program by Farideh Firoozbakht, Dec 01 2004