%I A008467
%S A008467 1,5,12,16,26,42,52,71,90,100,122,147,178,206,231,259,296,342,370,401,
%T A008467 453,484,539,591,646,701,756,784,842,930,961,1025,1095,1186,1259,1332,
%U A008467 1369,1445,1524,1609,1691,1770,1852,1943,2070,2152,2237,2316,2401,2510
%N A008467 n OR n^2 (applied to ternary expansions).
%t A008467 b=3; d=9; Mb=Array[ b^(d-#)&, d ]; Map[ Plus@@(Mb*#)&, Array[ Max /@ 
               Transpose[ {IntegerDigits[ #, b, d ], IntegerDigits[ #^2, b, d ]} 
               ]&, 140 ] ]
%Y A008467 A007745, A008468, A008469.
%Y A008467 Sequence in context: A110670 A111523 A078231 this_sequence A076718 A076671 
               A089988
%Y A008467 Adjacent sequences: A008464 A008465 A008466 this_sequence A008468 A008469 
               A008470
%K A008467 base,nonn,easy
%O A008467 1,2
%A A008467 Olivier Gerard (olivier.gerard(AT)gmail.com)