login
Primes that are a sum of 7 consecutive Fibonacci numbers.
1

%I #13 Mar 04 2024 01:10:17

%S 53,139,953,44771,189653,1494692464747,26821168009247,

%T 49900729438853608883,5173807429197933544505507,

%U 235602509965217050702320581591948981

%N Primes that are a sum of 7 consecutive Fibonacci numbers.

%F {prime(j): prime(j) = A022096(k) for some k>4}. [_R. J. Mathar_, Jun 18 2009]

%e a(1) = 53 = 1+2+3+5+8+13+21 is prime;

%e a(2) = 139 = 3+5+8+13+21+34+55 is prime.

%t Select[Total/@Partition[Fibonacci[Range[200]],7,1],PrimeQ] (* _Harvey P. Dale_, Oct 14 2022 *)

%K nonn

%O 1,1

%A _Vladimir Joseph Stephan Orlovsky_, Jun 14 2009