A162724 Binary Keith numbers.

1, 2, 3, 4, 8, 16, 32, 64, 128, 143, 256, 285, 512, 569, 683, 1024, 1138, 1366, 2048, 2276, 4096, 8192, 16384, 32768, 65536, 131072, 154203, 262144, 308405, 524288, 616810, 678491, 1048576, 1356981, 1480343, 2097152, 2713962, 2960686, 4194304

Offset: 1

Author

T. D. Noe, Jul 11 2009

Keywords

• base
• nonn

Comments

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

Programs

Mathematica

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
				

Formula

Union of A162363 and the powers of 2.