%I #8 Oct 03 2024 15:13:37
%S 0,1,10,100,101,110,200,201,210,1000,1001,1010,1100,1101,1110,1200,
%T 1201,1210,2000,2001,2010,2100,2101,2110,2200,2201,2210,10000,10001,
%U 10010,10100,10101,10110,10200,10201,10210,11000,11001,11010,11100,11101,11110,11200
%N n in base whose place values are a modifed ternary sequence; see Comments.
%C The modified ternary sequence, (1,2,3,9,27,81,...) consists of 2 together with all 3^k for k>=0.
%e 8 = 2*3 + 1*2 + 0*1, so that 8 in the modified ternary base is 210.
%t greedy[list_, n_] := Reap[FoldList[(Sow[Quotient[#1, #2]]; Mod[#1, #2]) &, n, Reverse[list]]][[2, 1]];
%t seq = Insert[Table[3^n, {n, 0, 5}], 2, 2]; (*1,2,3,9,27,...*)
%t Table[FromDigits[greedy[seq, n]], {n, Last[seq]}]
%t (* _Peter J. C. Moses_, Oct 18 2012; from A214973 *)
%Y Cf. A000244, A376456, A376457.
%K nonn,base
%O 0,3
%A _Clark Kimberling_, Sep 28 2024