A131058 List of numbers n whose reverse, R(n), is not less than n.

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 12, 13, 14, 15, 16, 17, 18, 19, 22, 23, 24, 25, 26, 27, 28, 29, 33, 34, 35, 36, 37, 38, 39, 44, 45, 46, 47, 48, 49, 55, 56, 57, 58, 59, 66, 67, 68, 69, 77, 78, 79, 88, 89, 99, 101, 102, 103, 104, 105, 106, 107, 108, 109, 111, 112, 113, 114, 115

Offset: 1

Author

Zak Seidov, Sep 24 2007

Keywords

• nonn
• base

Comments

First terms not in A009993 are 11, 22, 33, etc.

Links

• David A. Corneth, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A002113, A009993.

Programs

Mathematica

Select[Range[0, 200], FromDigits[Reverse[IntegerDigits[ # ]]]>=#&]
Select[Range[0,200],IntegerReverse[#]>=#&]

PARI

is(n) = my(d=digits(n));sum(i=1,#d,10^(#d-i)*d[i]) <= sum(i=1,#d,10^(i-1)*d[i]) \\ David A. Corneth, Apr 25 2016

PARI

isok(n) = subst(Polrev(digits(n)), x, 10) >= n; \\ Michel Marcus, Apr 25 2016