login
A023753
Plaindromes: numbers whose digits in base 12 are in nondecreasing order.
2
0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 39, 40, 41, 42, 43, 44, 45, 46, 47, 52, 53, 54, 55, 56, 57, 58, 59, 65, 66, 67, 68, 69, 70, 71, 78, 79, 80, 81, 82, 83, 91, 92, 93, 94, 95, 104
OFFSET
1,3
LINKS
MATHEMATICA
Select[Range[0, 104], LessEqual@@IntegerDigits[#, 12]&] (* Ray Chandler, Jan 06 2014 *)
Select[Range[0, 120], Min[Differences[IntegerDigits[#, 12]]]>-1&] (* Harvey P. Dale, Jul 10 2023 *)
PROG
(PARI) is(n)=vecsort(n=digits(n, 12))==n
for(n=0, 2, forvec(d=vector(n, i, [1, 11]), print1(fromdigits(d, 12)", "), 1)) \\ M. F. Hasler, May 05 2020
CROSSREFS
Cf. A000225, A023745, ..., A023757 (nondecreasing digits in base 2, 3, ..., 16).
Cf. A023758, A023759, ..., A023771 (nonincreasing digits in base 2, 3, ..., 16).
Sequence in context: A361232 A027855 A031996 * A035332 A318536 A048991
KEYWORD
nonn,base,easy
EXTENSIONS
Change offset to 1 by Ray Chandler, Jan 06 2014
STATUS
approved