OFFSET
1,2
LINKS
David A. Corneth, Table of n, a(n) for n = 1..5343 (all terms < 20000)
PROG
(PARI) is(n)=my(d=digits(n)); r=1; forstep(i=#d, 2, -1, if((-1)^(#d-i)*d[i]>(-1)^(#d-i)*d[i-1], r=0; break)); r \\ David A. Corneth, Feb 01 2015
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved