%I#23 2021年7月1日06:12:02

%S 2,3,5,7,11,13,23,29,31,37,41,47,71,73,79,83,89,97107109113131，

%电话：13914915115716717318119119319922322723241251257269，

%电话：277283293311317337353359367397401409419421

%N Fibbeven素数，即Zeckendorf-expansion A014417（p）以零结尾的素数p。

%H Alois P.Heinz，n的表格，n=1..10000的a（n）</a>

%H A.Karttunen和J.Moyer，计算该序列初始项的c程序</a>

%p F:=组合[fibonacci]：

%p b:=proc（n）选项记忆；局部j；

%p如果n=0，则为0

%p表示j从2开始，而F（j+1）<=n表示od；

%p b（n-F（j））+2^（j-2）

%功率因数

%p端：

%p a:=proc（n）选项记忆；局部p；

%p p：=`如果`（n=1，1，a（n-1））；

%pdop:=下一素数（p）；

%p如果b（p）：：即使然后中断fi

%p od；第页

%p端：

%p序列（a（n），n=1..100）；#_Alois P.Heinz，2016年3月27日

%t F=斐波那契；

%tb[n_]：=b[n]=模块[{j}，

%t如果[n==0，0，对于[j=2，F[j+1]<=n，j++]；

%tb[n-F[j]]+2^（j-2）]]；

%t a[n_]：=a[n]=模块[{p}，

%t p=如果[n==1，1，a[n-1]]；虽然[正确，

%t p=下一素数[p]；如果[EvenQ[b[p]]，则中断[]]]；p] ；

%t数组[a，100]（*_Jean-François Alcover_，2021年7月1日，在_Alois P.Heinz_*之后）

%o（Python）

%o来自sympy import fibonacci，primerange

%o定义a（n）：

%o k=0

%o x=0

%o当n>0时：

%o k=0

%o而fibonacci（k）<=n:k+=1

%o x+=10**（k-3）

%o n-=斐波那契（k-1）

%o返回x

%o定义正常（n）：

%o返回str（a（n））[-1]==“0”

%o打印（[n代表n，在素数范围（11001）中，如果可以（n）]）#_Indranil Ghosh，2017年6月7日

%A000040和A022342的Y交点。A095082和A095087的联合。参见A095060、A095081。

%K nonn公司

%O 1,1号机组

%2004年6月1日，安蒂·卡图宁