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

10, 19, 31, 32, 37, 46, 58, 59, 64, 73, 91, 94, 95, 97, 98, 112, 113, 118, 127, 139, 140, 145, 154, 172, 175, 176, 178, 179, 193, 194, 199, 208, 220, 221, 226, 235, 274, 275, 280, 283, 284, 286, 287, 289, 292, 293, 295, 296, 334, 337, 338, 340, 341, 355, 356

Offset: 1

Author

Clark Kimberling, Mar 13 2024

Keywords

• nonn
• base

Examples

			The ternary representations of 10, 19, and 31 are 101, 201, and 1011.
		

Crossrefs

Cf. A007089, A081605.

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

Programs

Mathematica

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