A371106 Integers whose ternary representation consists of concatenated runs A(1)B(1)C(1)A(2)B(2)C(2)...A(k)B(k)C(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.

11, 29, 35, 38, 83, 89, 107, 110, 116, 119, 245, 251, 269, 308, 323, 326, 332, 350, 353, 359, 362, 731, 737, 755, 794, 809, 920, 926, 929, 956, 971, 974, 980, 998, 1037, 1052, 1055, 1061, 1079, 1082, 1088, 1091, 2189, 2195, 2213, 2252, 2267, 2378, 2384, 2387

Offset

1,1

Comments

a(n) == 2 mod 3 for all n.

Links

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

Mathematica

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

Crossrefs

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

Sequence in context: A126240 A124110 A153768 * A371054 A360181 A092194

Adjacent sequences: A371103 A371104 A371105 * A371107 A371108 A371109

Keyword

nonn,base

Author

Clark Kimberling, Mar 22 2024

Status

approved