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

Links

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

Example

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

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

Crossrefs

Cf. A007089, A081606.

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

Sequence in context: A110999 A179867 A032671 * A331029 A105949 A302422

Adjacent sequences: A370915 A370916 A370917 * A370919 A370920 A370921

Keyword

nonn,base

Author

Clark Kimberling, Mar 15 2024

Status

approved