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

3, 9, 11, 21, 27, 29, 30, 33, 35, 57, 63, 65, 75, 81, 83, 84, 87, 89, 90, 92, 99, 101, 102, 105, 107, 165, 171, 173, 183, 189, 191, 192, 195, 197, 219, 225, 227, 237, 243, 245, 246, 249, 251, 252, 254, 261, 263, 264, 267, 269, 270, 272, 273, 276, 278, 297

Offset: 1

Author

Clark Kimberling, Mar 15 2024

Keywords

• nonn
• base

Examples

			The ternary representations of 3, 9, and 11 are 10, 100, and 102.
		

Crossrefs

Cf. A007089, A081606.

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

Programs

Mathematica

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