%I#35 2021年10月28日17:59:33

%S 0,1,2,3,4,6,8,9,12,16,17,18,19,24,25,32,33,34,35,36,38,48,49,50,51，

%电话：64,65,66,67,68,70,72,73,76,96,97,98,99100102128129130131132，

%U 134136137140144145146147152153192193194195196198200201电话

%N对N进行编号，使二进制展开匹配（（0）*00（1？）1）*（0*）。

%C如果位i是1，那么位i+-2必须是0。所有项均满足A048725（n）=5*n。

%C似乎n在序列中当且仅当C（5n，n）是奇数时（参见A003714）_Benoit Cloitre_，2003年3月9日

%C是的，正如A048715中所述，“这很容易用众所周知的结果证明，素数p除以C（n+m，n）的多重性是在基数p中加上n+m时的进位数。”-_Jason Kimberley，2011年12月21日

%C A116361（a（n））<=2.-_Reinhard Zumkeller，2006年2月4日

%H Charles R Greathouse IV，n表，n=1..10000的a（n）</a>

%H<a href=“/index/Ar#2-automatic”>为2-自动序列索引条目。

%H<a href=“/index/Con#ConruCrossDomain”>由域N和GF（2）[X]之间的同余积定义的序列的索引项</a>

%H<a href=“/index/Con#ConruXOR”>在XOR下由同余积定义的序列的索引项</a>

%t收获[Do[If[OddQ[二项式[5n，n]]，母猪[n]，{n，0，400}]][2，1]]

%t（*第二个程序：*）

%t过滤器Q[n_]：=使用[{bb=整数位数[n，2]}，匹配Q[bb，{0}|{1}|{1，1}|}{___，0，_，1，___}|{___ 1，_，0，___}]&&！匹配Q[bb，{___，1，_，1，___}]]；

%t选择[范围[0，201]，过滤器Q]（*_Jean-François Alcover_，2020年12月31日*）

%o（PARI）是（n）=！比特（n，n>>2）\\查尔斯·格里特豪斯IV，2016年10月3日

%o（PARI）列表（lim）=我的（v=列表（），n，t）；而（n<=lim，t=比特和（n，n>>2）；如果（t，n+=1<<估值（t，2），则listput（v，n）；n++））；Vec（v）\\_Charles R Greathouse IV，2021年10月22日

%A048715和A048719的Y超集。A004742和A003726的联合。

%Y参见A048729、A003714、A115845、A115847、A116360。

%K nonn，基础，简单

%氧1,3

%A Antti Karttunen，1999年3月30日