A371110 Integers whose ternary representation consists of concatenated runs C(1)B(1)A(1)C(2)B(2)A(2)...C(k)B(k)A(k), where A(i) is a run of 1's, B(i) a run of 0's, and C(i) a run of 2's, for i = 1..k.

19, 55, 58, 73, 163, 166, 175, 217, 220, 235, 487, 490, 499, 526, 532, 649, 652, 661, 703, 706, 721, 1459, 1462, 1471, 1498, 1504, 1579, 1585, 1594, 1597, 1612, 1945, 1948, 1957, 1984, 1990, 2107, 2110, 2119, 2161, 2164, 2179

Offset

1,1

Links

Table of n, a(n) for n=1..42.

Mathematica

Map[#[[1]] &, Select[Map[{#, DeleteDuplicates[Partition[Map[#[[1]] &, Split[IntegerDigits[#, 3]]], UpTo[3]]] == {{2, 0, 1}}} &,
Range[1, 3600, 3]], #[[2]] &]] (* A371109 *)
m = Map[{#, IntegerString[#, 3]} &, %];
Map[Last, ToExpression[m]] (* this sequence *)
(* Peter J. C. Moses, Mar 06 2024 *)

Crossrefs

Cf. A007088, A371105, A371106, A371107, A371108, A371109, A371111, A371112.

Sequence in context: A221594 A288144 A051871 * A371056 A044121 A044502

Adjacent sequences: A371107 A371108 A371109 * A371111 A371112 A371113

Keyword

nonn,base

Author

Clark Kimberling, Mar 31 2024

Status

approved