(PARI)是(n)=n=二进制(n);对于(i=4,#n,如果(!n[i]&&n[i-1]&&!n[i-2],返回(0));1 \\查尔斯·格里特豪斯四世2013年3月29日
(PARI)是(n)=而(n>9,如果(位和(n,7)==2,返回(0));n> >=1);1 \\查尔斯·格里特豪斯四世2017年2月11日
(哈斯克尔)
a004746 n=a004746_列表!!(n-1)
a004746_list=过滤器f[0..],其中
f x=x<4||x`mod`8/=2&f(x`div`2)
|