A127424 Numbers whose decimal expansion is a concatenation of 3 consecutive decreasing numbers.
210, 321, 432, 543, 654, 765, 876, 987, 1098, 11109, 121110, 131211, 141312, 151413, 161514, 171615, 181716, 191817, 201918, 212019, 222120, 232221, 242322, 252423, 262524, 272625, 282726, 292827, 302928, 313029, 323130, 333231, 343332, 353433, 363534
Offset: 1
Examples
a(13)=141312 because 14 and 13 and 12 are three consecutive decreasing numbers
Programs
-
Mathematica
Table[FromDigits[Flatten[IntegerDigits[#]&/@Range[n,n-2,-1]]],{n,2,40}] (* Harvey P. Dale, Nov 28 2013 *)
Extensions
Corrected and extended by Harvey P. Dale, Nov 28 2013