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,1

Links

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

Example

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

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

Crossrefs

Cf. A007089, A081605.

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

Sequence in context: A179110 A126624 A109334 * A085728 A195955 A374806

Adjacent sequences: A370913 A370914 A370915 * A370917 A370918 A370919

Keyword

nonn,base

Author

Clark Kimberling, Mar 13 2024

Status

approved