|
| |
|
|
A153866
|
|
Largest of four consecutive Fibonacci numbers such that sum of four consecutive Fibonacci numbers is prime number.
|
|
7
| |
|
|
3, 5, 13, 21, 89, 233, 987, 1597, 4181, 1346269, 24157817, 165580141, 2971215073, 53316291173, 2504730781961, 308061521170129, 14472334024676221, 184551825793033096366333
(list; graph; refs; listen; history; 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,...
|
|
|
MATHEMATICA
| a=0; b=1; c=1; lst={}; Do[d=Fibonacci[n]; p=a+b+c+d; If[PrimeQ[p], AppendTo[lst, d]]; a=b; b=c; c=d, {n, 3, 6!}]; lst
Alternate: Transpose[Select[Partition[Fibonacci[Range[200]], 4, 1], PrimeQ[Plus@@#]&]][[4]]
|
|
|
CROSSREFS
| Cf. A000045, A001906, A000071, A001605, A153862, A153863, A153865
Sequence in context: A059875 A086893 A014437 * A104222 A045414 A089067
Adjacent sequences: A153863 A153864 A153865 * A153867 A153868 A153869
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Vladimir Orlovsky (4vladimir(AT)gmail.com), Jan 03 2009
|
|
|
EXTENSIONS
| Alternative Mathematica program provided by Harvey P. Dale, Dec. 5, 2010
|
| |
|
|
