|
|
A153867
|
|
Primes which are the sum of four consecutive Fibonacci numbers.
|
|
8
|
|
|
7, 11, 29, 47, 199, 521, 2207, 3571, 9349, 3010349, 54018521, 370248451, 6643838879, 119218851371, 5600748293801, 688846502588399, 32361122672259149, 412670427844921037470771, 258899611203303418721656157249445530046830073044201152332257717521
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
1+1+2+3=7, 1+2+3+5=11, 3+5+8+13=29, 5+8+13+21=47, 21+34+55+89=199,...
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
a=0; b=1; c=1; lst={}; Do[d=Fibonacci[n]; p=a+b+c+d; If[PrimeQ[p], AppendTo[lst, p]]; a=b; b=c; c=d, {n, 3, 6!}]; lst
Select[Total/@Partition[Fibonacci[Range[500]], 4, 1], PrimeQ] (* Harvey P. Dale, Apr 23 2014 *)
|
|
PROG
|
(PARI) list(lim)=my(v=List(), a=7, b=11); while(a<=lim, if(isprime(a), listput(v, a)); [a, b]=[b, a+b]); Vec(v) \\ Charles R Greathouse IV, Oct 07 2016
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|