|
Search: id:A162724
|
|
| |
|
| 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
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
See A162363. It is easy to see that every power of 2 is a binary Keith number.
|
|
FORMULA
|
Union of A162363 and the powers of 2.
|
|
MAPLE
|
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[ # ]&]
|
|
CROSSREFS
|
Sequence in context: A122774 A118841 A126294 this_sequence A140974 A102276 A105055
Adjacent sequences: A162721 A162722 A162723 this_sequence A162725 A162726 A162727
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
T. D. Noe (noe(AT)sspectra.com), Jul 11 2009
|
|
|
Search completed in 0.002 seconds
|
