A376454 n in base whose place values are a modifed ternary sequence; see Comments.

0, 1, 10, 100, 101, 110, 200, 201, 210, 1000, 1001, 1010, 1100, 1101, 1110, 1200, 1201, 1210, 2000, 2001, 2010, 2100, 2101, 2110, 2200, 2201, 2210, 10000, 10001, 10010, 10100, 10101, 10110, 10200, 10201, 10210, 11000, 11001, 11010, 11100, 11101, 11110, 11200

Offset

0,3

Comments

The modified ternary sequence, (1,2,3,9,27,81,...) consists of 2 together with all 3^k for k>=0.

Links

Table of n, a(n) for n=0..42.

Example

8 = 2*3 + 1*2 + 0*1, so that 8 in the modified ternary base is 210.

Mathematica

greedy[list_, n_] := Reap[FoldList[(Sow[Quotient[#1, #2]]; Mod[#1, #2]) &, n, Reverse[list]]][[2, 1]];
seq = Insert[Table[3^n, {n, 0, 5}], 2, 2]; (*1, 2, 3, 9, 27, ...*)
Table[FromDigits[greedy[seq, n]], {n, Last[seq]}]
(* Peter J. C. Moses, Oct 18 2012; from A214973 *)

Crossrefs

Cf. A000244, A376456, A376457.

Sequence in context: A305701 A107411 A297065 * A019513 A307102 A037415

Adjacent sequences: A376451 A376452 A376453 * A376455 A376456 A376457

Keyword

nonn,base

Author

Clark Kimberling, Sep 28 2024

Status

approved