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

Author

Clark Kimberling, Mar 15 2024

Keywords

• nonn
• base

Examples

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

Crossrefs

Cf. A007089, A081605.

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

Programs

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 *)