A162724 - OEIS

%I #4 May 15 2013 22:22:07

%S 1,2,3,4,8,16,32,64,128,143,256,285,512,569,683,1024,1138,1366,2048,

%T 2276,4096,8192,16384,32768,65536,131072,154203,262144,308405,524288,

%U 616810,678491,1048576,1356981,1480343,2097152,2713962,2960686,4194304

%N Binary Keith numbers.

%C See A162363. It is easy to see that every power of 2 is a binary Keith number.

%F Union of A162363 and the powers of 2.

%t IsKeith2[n_Integer] := Module[{b,s}, b=IntegerDigits[n,2]; s=Total[b]; If[s<=1, True, k=1; While[s=2*s-b[[k]]; s<n, k++ ]; s== n]]; Select[Range[3000], IsKeith2[ # ]&]

%K base,nonn

%O 1,2

%A _T. D. Noe_, Jul 11 2009