A048300 Numbers whose base-3 expansions, read from left to right, have run lengths that strictly increase.

0, 1, 2, 4, 8, 9, 13, 17, 18, 22, 26, 27, 40, 53, 54, 67, 80, 81, 108, 121, 134, 161, 162, 202, 216, 229, 242, 243, 256, 269, 324, 364, 404, 459, 472, 485, 486, 499, 512, 594, 607, 620, 648, 688, 728, 729, 769, 809, 972, 1053, 1093, 1133, 1214, 1377, 1417

Offset

0,3

Links

Table of n, a(n) for n=0..54.

Mathematica

A048300Q[k_] := Min[Differences[Map[Length, Split[IntegerDigits[k, 3]]]]] > 0;
Select[Range[0, 2000], A048300Q] (* Paolo Xausa, Oct 27 2025 *)

Crossrefs

Cf. A037015, A043692, A043706, A044814, A044952.

Sequence in context: A035258 A115813 A326672 * A178953 A182653 A347202

Adjacent sequences: A048297 A048298 A048299 * A048301 A048302 A048303

Keyword

nonn,base

Author

Patrick De Geest, Feb 15 1999

Status

approved