A023752 Plaindromes: numbers whose digits in base 11 are in nondecreasing order.
0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 24, 25, 26, 27, 28, 29, 30, 31, 32, 36, 37, 38, 39, 40, 41, 42, 43, 48, 49, 50, 51, 52, 53, 54, 60, 61, 62, 63, 64, 65, 72, 73, 74, 75, 76, 84, 85, 86, 87, 96, 97, 98, 108, 109, 120
Offset: 1
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
Select[Range[0,250],And@@NonNegative/@Differences[IntegerDigits[#,11]]&] (* Harvey P. Dale, Oct 20 2011 *) Select[Range[0,120],LessEqual@@IntegerDigits[#,11]&] (* Ray Chandler, Jan 06 2014 *)
Extensions
Change offset to 1 by Ray Chandler, Jan 06 2014