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 A162724 #4 May 15 2013 22:22:07
%S A162724 1,2,3,4,8,16,32,64,128,143,256,285,512,569,683,1024,1138,1366,2048,
%T A162724 2276,4096,8192,16384,32768,65536,131072,154203,262144,308405,524288,
%U A162724 616810,678491,1048576,1356981,1480343,2097152,2713962,2960686,4194304
%N A162724 Binary Keith numbers.
%C A162724 See A162363. It is easy to see that every power of 2 is a binary Keith number.
%F A162724 Union of A162363 and the powers of 2.
%t A162724 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 A162724 base,nonn
%O A162724 1,2
%A A162724 _T. D. Noe_, Jul 11 2009