[go: up one dir, main page]

login
A127424
Numbers whose decimal expansion is a concatenation of 3 consecutive decreasing numbers.
5
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,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