This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A376454 #10 May 06 2025 11:29:53
%S A376454 0,1,10,100,101,110,200,201,210,1000,1001,1010,1100,1101,1110,1200,
%T A376454 1201,1210,2000,2001,2010,2100,2101,2110,2200,2201,2210,10000,10001,
%U A376454 10010,10100,10101,10110,10200,10201,10210,11000,11001,11010,11100,11101,11110,11200
%N A376454 n in base whose place values are a modified ternary sequence; see Comments.
%C A376454 The modified ternary sequence, (1,2,3,9,27,81,...) consists of 2 together with all 3^k for k>=0.
%e A376454 8 = 2*3 + 1*2 + 0*1, so that 8 in the modified ternary base is 210.
%t A376454 greedy[list_, n_] := Reap[FoldList[(Sow[Quotient[#1, #2]]; Mod[#1, #2]) &, n, Reverse[list]]][[2, 1]];
%t A376454 seq = Insert[Table[3^n, {n, 0, 5}], 2, 2]; (*1,2,3,9,27,...*)
%t A376454 Table[FromDigits[greedy[seq, n]], {n, Last[seq]}]
%t A376454 (* _Peter J. C. Moses_, Oct 18 2012; from A214973 *)
%Y A376454 Cf. A000244, A376456, A376457.
%K A376454 nonn,base
%O A376454 0,3
%A A376454 _Clark Kimberling_, Sep 28 2024