%I#18 2018年7月4日15:12:41

%S 0,1,2,3,3,3,1,4,3,4,4,3、4,4,1,3,4、3,4,12,3,3、3,4，4,3,15,5,3,3，

%T 3,5,5,3,4,4,3,4，4,3,1,3,3,5,1,4,3，3,3,14,4,1,3,1，3,4,1，

%U 4,3,3,4,4,3,13,3,1,3,5,5,3,3、3,5、5,3,1、3,4、3,3和3,3

%N基数B（2<=B<=N）的数量，使得基数B中N的每个数字都是0或1。

%所有这些基数都是n或n-1的除数，因为n的最低基数B是0 iff B|n，1 iff B|1_罗伯特·伊斯雷尔，2018年7月4日

%H Robert Israel，n的表，a（n）表示n=1..10000</a>

%e a（30）=5，因为30写在5个基2、3、5、29、30中是11110、1010、110、11、10。

%p f：=n->

%p nops（select（b->convert（convert（n，base，b），set）子集{0,1}，{$2..n}相交（数论：-除数（n）并集数论：-除数（n-1）））：

%p映射（f，[1..200]美元）；#_罗伯特·伊斯雷尔，2018年7月4日

%ta[1]=0；a[n_]：=长度[Select[Rest[Union[Divisors[n]，Divisors[n-1]]，Max@@Integer Digits[n，#]==1&]]

%o（PARI）a（n）=总和（b=2，n，#选择（x->（x>1），数字（n，b））==0）；\\_米歇尔·马库斯，2018年7月4日

%Y参考A059972。

%K nonn，基础

%氧1,3

%A Dean Hickerson，2002年3月31日