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

Crossrefs

Sequence in context: A088169 A061563 A345113 * A068065 A278228 A028328

Adjacent sequences: A099991 A099992 A099993 * A099995 A099996 A099997

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