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,2

Links

Table of n, a(n) for n=1..60.

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

Crossrefs

Sequence in context: A273519 A241175 A342729 * A356177 A329364 A100028

Adjacent sequences: A099992 A099993 A099994 * A099996 A099997 A099998

Keyword

nonn,base,easy

Author

N. J. A. Sloane, Nov 20 2004

Extensions

Extended with Mathematica program by Farideh Firoozbakht, Dec 01 2004

Status

approved