%I A008468
%S A008468 1,10,27,68,125,222,343,520,729,1002,1339,1740,2205,2750,3375,4112,4913,
%T A008468 5850,6875,8020,9277,10654,12183,13848,15641,17594,19707,21980,24413,
%U A008468 27006,29791,32800,35937,39338,42875,46692,50685,54910,59319,64040
%N A008468 n OR n^3 (applied to binary expansions).
%t A008468 d=16; Mb=Array[ 2^(d-#)&, d ]; Map[ Plus@@(Mb*#)&, Array[ IntegerDigits[ 
               #, 2, d ]+IntegerDigits[ #^3, 2, d ]&, 40 ]/. (2->1) ]
%Y A008468 Cf. A007745, A008467, A008469.
%Y A008468 Sequence in context: A161450 A001107 A103135 this_sequence A119548 A007705 
               A022422
%Y A008468 Adjacent sequences: A008465 A008466 A008467 this_sequence A008469 A008470 
               A008471
%K A008468 base,nonn,easy
%O A008468 1,2
%A A008468 Olivier Gerard (olivier.gerard(AT)gmail.com)