A153889
Middle of five consecutive Fibonacci numbers such that sum of five consecutive Fibonacci numbers is prime number.
Original entry on oeis.org
1, 3, 5, 21, 233, 377, 6765, 317811, 514229, 2178309, 53316291173, 10610209857723, 23416728348467685, 259695496911122585, 7540113804746346429, 36726740705505779255899443, 251728825683549488150424261, 37281903592600898879479448409585328515842582885579275203077366912825
Offset: 1
Cf.
A000045,
A001906,
A000071,
A001605,
A153862,
A153863,
A153865,
A153866,
A153867,
A153887,
A153888.
-
a=0;b=1;c=1;d=2;lst={};Do[e=Fibonacci[n];p=a+b+c+d+e;If[PrimeQ[p],AppendTo[lst,c]];a=b;b=c;c=d;d=e,{n,4,6!}];lst
A153890
Second-to-largest of five consecutive Fibonacci numbers such that sum of five consecutive Fibonacci numbers is prime number.
Original entry on oeis.org
2, 5, 8, 34, 377, 610, 10946, 514229, 832040, 3524578, 86267571272, 17167680177565, 37889062373143906, 420196140727489673, 12200160415121876738, 59425114757512643212875125
Offset: 1
Cf.
A000045,
A001906,
A000071,
A001605,
A153862,
A153863,
A153865,
A153866,
A153867,
A153887,
A153888,
A153889
-
a=0;b=1;c=1;d=2;lst={};Do[e=Fibonacci[n];p=a+b+c+d+e;If[PrimeQ[p],AppendTo[lst,d]];a=b;b=c;c=d;d=e,{n,4,6!}];lst
A153892
Primes that are the sum of five consecutive Fibonacci numbers.
Original entry on oeis.org
7, 19, 31, 131, 1453, 2351, 42187, 1981891, 3206767, 13584083, 332484016063, 66165989928299, 146028309791690867, 1619478772188347101, 47020662244482792763, 229030451631542624193448579, 1569798068858809572115420691
Offset: 1
a(1) = 7 = 0+1+1+2+3 is prime;
a(2) = 19 = 1+2+3+5+8 is prime;
a(3) = 31 = 2+3+5+8+13 is prime, etc.
- Harvey P. Dale, Table of n, a(n) for n = 1..29
- Hsin-Yun Ching, Rigoberto Flórez, F. Luca, Antara Mukherjee, and J. C. Saunders, Primes and composites in the determinant Hosoya triangle, arXiv:2211.10788 [math.NT], 2022.
- Hsin-Yun Ching, Rigoberto Flórez, F. Luca, Antara Mukherjee, and J. C. Saunders, Primes and composites in the determinant Hosoya triangle, The Fibonacci Quarterly, 60.5 (2022), 56-110.
Cf.
A000045,
A001906,
A000071,
A001605,
A013655,
A153862,
A153863,
A153865,
A153866,
A153867,
A153887,
A153888,
A153889,
A153890,
A153891.
-
Select[Total/@Partition[Fibonacci[Range[0,150]],5,1],PrimeQ] (* Harvey P. Dale, Jan 13 2013 *)
A153891
Largest of five consecutive Fibonacci numbers such that the sum of the five consecutive Fibonacci numbers is prime.
Original entry on oeis.org
3, 8, 13, 55, 610, 987, 17711, 832040, 1346269, 5702887, 139583862445, 27777890035288, 61305790721611591, 679891637638612258, 19740274219868223167, 96151855463018422468774568, 659034621587630041982498215, 97605290770725966021179803308812675106786783237939047196728424115618
Offset: 1
Cf.
A000045,
A001906,
A000071,
A001605,
A153862,
A153863,
A153865,
A153866,
A153867,
A153887,
A153888,
A153889,
A153890.
-
a=0;b=1;c=1;d=2;lst={};Do[e=Fibonacci[n];p=a+b+c+d+e;If[PrimeQ[p],AppendTo[lst,e]];a=b;b=c;c=d;d=e,{n,4,6!}];lst
Transpose[Select[Partition[Fibonacci[Range[0,400]],5,1],PrimeQ[ Total[ #]]&]][[5]] (* Harvey P. Dale, Nov 14 2011 *)
Showing 1-4 of 4 results.
Comments