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,3

Links

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

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 *)

Crossrefs

Sequence in context: A032896 A032855 A031993 * A091249 A154799 A020660

Adjacent sequences: A023747 A023748 A023749 * A023751 A023752 A023753

Keyword

nonn,base,easy,look

Author

Olivier Gérard

Extensions

Offset changed to 1 by Ray Chandler, Jan 06 2014

Status

approved