A370917 Positive integers whose ternary representation includes at least one 0, and every 0 is followed by 2.

11, 20, 34, 35, 38, 47, 61, 62, 65, 74, 101, 103, 104, 106, 107, 115, 116, 119, 128, 142, 143, 146, 155, 182, 184, 185, 187, 188, 196, 197, 200, 209, 223, 224, 227, 236, 304, 305, 308, 310, 311, 313, 314, 317, 319, 320, 322, 323, 344, 346, 347, 349, 350, 358

Offset

1,1

Links

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

Example

The ternary representations of 11, 20, and 34 are 102, 202, and 1021.

Mathematica

Map[#[[1]] &, Select[Map[{#, #[[1]] > 0 && #[[1]] == #[[2]] &[{Length[
StringCases[#, "0"]], Length[StringCases[#, "02"]]}] &[
IntegerString[#, 3]]} &, Range[500]], #[[2]] &]]
  (* Peter J. C. Moses, Mar 05 2024 *)

Crossrefs

Cf. A007089, A081605.

Cf. A370916, A370918, A370919, A370920, A370921, A370922, A370923.

Sequence in context: A059407 A109376 A100038 * A160843 A153368 A068600

Adjacent sequences: A370914 A370915 A370916 * A370918 A370919 A370920

Keyword

nonn,base

Author

Clark Kimberling, Mar 15 2024

Status

approved