|
%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
|
