A023750 Plaindromes: numbers whose digits in base 8 are in nondecreasing order.

0, 1, 2, 3, 4, 5, 6, 7, 9, 10, 11, 12, 13, 14, 15, 18, 19, 20, 21, 22, 23, 27, 28, 29, 30, 31, 36, 37, 38, 39, 45, 46, 47, 54, 55, 63, 73, 74, 75, 76, 77, 78, 79, 82, 83, 84, 85, 86, 87, 91, 92, 93, 94, 95, 100, 101, 102, 103, 109, 110, 111, 118, 119, 127, 146, 147

Offset: 1

Author

Olivier Gérard

Keywords

• nonn
• base
• easy
• look

Links

• Vincenzo Librandi, Table of n, a(n) for n = 1..9000

Programs

Maple

filter:= proc(n) local L;
  L:= convert(n,base,8);
  L = sort(L,`>`)
end proc:
select(filter, [$0..1000]); # Robert Israel, Nov 29 2017

Mathematica

Select[Range[0,147],LessEqual@@IntegerDigits[#,8]&] (* Ray Chandler, Jan 06 2014 *)

Extensions

Offset changed to 1 by Ray Chandler, Jan 06 2014