OFFSET
1,1
LINKS
David A. Corneth, Table of n, a(n) for n = 1..5400 (first 1000 terms from T. D. Noe)
MATHEMATICA
Select[Range[300], # > FromDigits[Reverse[IntegerDigits[#]]] &] (* T. D. Noe, Mar 14 2012 *)
Select[Range[300], IntegerReverse[#]<#&] (* Harvey P. Dale, Jan 16 2022 *)
PROG
(PARI) for(i=2, 300, n=(i); s=ceil(log(n)/log(10)); if((sum(i=0, s, 10^(s-i-1)*(floor(n/10^i*1.)-10*floor(n/10^(i+1)*1.))))<i, print1((i), ", ")))
(PARI) is(n) = {fromdigits(Vecrev(digits(n)))<n} \\ David A. Corneth, Apr 07 2021
(Python)
def ok(n): return int(str(n)[::-1]) < n
print([k for k in range(232) if ok(k)]) # Michael S. Branicky, Oct 20 2021
CROSSREFS
KEYWORD
nonn,easy,base
AUTHOR
Benoit Cloitre, Jun 01 2002
EXTENSIONS
Definition corrected by Harvey P. Dale, Jan 16 2022
STATUS
approved