%I#20 2022年3月21日11:49:38
%S 5,13,29,47,73,89,97107131149157173191199233241251293317,
%电话:419461479487521547563631673683691733751809827877911,
%电话:919937953971101310211039106310971123491259
%N Fib000素数,即Zeckendorf-expansion A014417(p)以三个零结尾的素数p。
%H Antti Karttunen和John Moyer,计算该序列初始项的c程序。
%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定义ok(n):返回str(a(n))[-3:]==“000”
%o打印([n代表n,primerange(11261)中的n,如果可以(n)])#_Indranil Ghosh,2017年6月8日
%A000040和A101345的Y交点。
%Y参考A014417、A095065。
%K nonn,基础
%O 1,1
%2004年6月1日,安蒂·卡图宁
|