编辑

经核准的

IsKeith2[n_Integer]：=模块[{b，s}，b=整数位数[n，2]；s=总计[b]；如果[s<=1，则为真，k=1；而[s=2*s-b[[k]]；s<n，k++]；s==n]]；选择[Range[3000]，IsKeith2[#]&]

IsKeith2[n_Integer]：=模块[{b，s}，b=整数位数[n，2]；s=总计[b]；如果[s<=1，True，k=1；而[s=2*s-b[[k]]；s<n，k++]；s==n]]；选择[Range[3000]，IsKeith2[#]&]

经核准的

编辑

_T.D.诺伊(否(自动变速箱)固态光谱.通用域名格式),_,2009年7月11日

OEIS服务器: https://oeis.org/edit/global/120

二进制基思数。

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

1,2

请参见A162363号很容易看出，2的每一次幂都是一个二进制基思数。

联盟A162363号和2的权力。

IsKeith2[n_Integer]：=模块[{b，s}，b=整数位数[n，2]；s=总计[b]；如果[s<=1，则为真，k=1；而[s=2*s-b[[k]]；s<n，k++]；s==n]]；选择[Range[3000]，IsKeith2[#]&]

基础,非n

T.D.Noe（Noe（AT）sspectra.com），2009年7月11日

经核准的