%I#13 2023年8月14日13:03:40
%S 2,3,7,17,37,711372514578231459257944837789134632314339769,
%电话:67927115823196681333227563971951553160347126966534528921,
%电话:75947591271770121275489355481875932812198921047164781917
%指数是前N+1个斐波那契数之和的N个素数。
%C我们通过从x=1开始来避免测试脚本中是否存在。
%C总和[i=1到n+1]F(i)=F(n+3)-1。参见Weisstein参考的方程式(18)_Jonathan Vos Post,2005年5月5日
%H Eric Weisstein的数学世界,<a href=“http://mathworld.wolfram.com/Fibonacci数字.html“>斐波那契数</a>
%F a(n)=素数(F(n+3)-1)=A000040(A000045(n+3)-1)_Jonathan Vos Post,2005年5月5日
%e a(1)=素数(斐波那契(0)+斐波那奇(1))=素数(0+1)=素(1)=2。
%e a(3)=素数(斐波那契(0)+斐波那奇(1)+斐波那契(2)+斐伯那契(3))=prime(4)=7。
%t素数[Accumulate[Fibonacci[Range[40]]](*哈维·P·戴尔,2023年8月14日*)
%o(PARI)g(n)=s=0;对于(x=1,n,s+=fibonacci(x));print1(素数“,”)
%K容易,不是
%O 1,1号机组
%2005年5月3日,A Clino Hilliard
%E由T.D.Noe_修订,2006年11月15日
|