%I A008469
%S A008469 1,8,30,67,125,222,349,512,738,1009,1340,1740,2200,2744,3390,4102,4913,
%T A008469 5850,6877,8018,9282,10660,12176,13848,15631,17576,19710,21979,24416,
%U A008469 27003,29794,32768,35943,39337,42902,46692,50662,54881,59331,64030,68921
%N A008469 n OR n^3 (applied to ternary expansions).
%t A008469 b=3; d=12; Mb=Array[ b^(d-#)&, d ]; Map[ Plus@@(Mb*#)&, Array[ Max /@ 
               Transpose[ {IntegerDigits[ #, b, d ], IntegerDigits[ #^3, b, d ]} 
               ]&, 80 ] ]
%Y A008469 Cf. A007745, A008467, A008468.
%Y A008469 Sequence in context: A071931 A074670 A092277 this_sequence A004639 A131769 
               A055832
%Y A008469 Adjacent sequences: A008466 A008467 A008468 this_sequence A008470 A008471 
               A008472
%K A008469 base,nonn,easy
%O A008469 1,2
%A A008469 Olivier Gerard (olivier.gerard(AT)gmail.com)