OFFSET
1,1
EXAMPLE
a(13)=141312 because 14 and 13 and 12 are three consecutive decreasing numbers
MATHEMATICA
Table[FromDigits[Flatten[IntegerDigits[#]&/@Range[n, n-2, -1]]], {n, 2, 40}] (* Harvey P. Dale, Nov 28 2013 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Artur Jasinski, Jan 14 2007
EXTENSIONS
Corrected and extended by Harvey P. Dale, Nov 28 2013
STATUS
approved