OFFSET
1,3
COMMENTS
First terms not in A009993 are 11, 22, 33, etc.
LINKS
David A. Corneth, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Range[0, 200], FromDigits[Reverse[IntegerDigits[ # ]]]>=#&]
Select[Range[0, 200], IntegerReverse[#]>=#&]
PROG
(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
CROSSREFS
KEYWORD
nonn,base,changed
AUTHOR
Zak Seidov, Sep 24 2007
STATUS
approved