problem 2

Problem 2

19 October 2001

Each new term in the Fibonaccisequence is generated by adding the previous two terms. By starting with 1 and2, the first 10 terms will be:

1, 2, 3, 5, 8, 13, 21, 34, 55,89, ...

Find the sum of all theeven-valued terms in the sequence which do not exceed four million.

Mathematica:

Clear[i,j,k];
For[i=1,i<1000,i++,
 If[Fibonacci[i]>4000000,Break[]]
 ];
s=0;
For[j=3,j<i,j+=3,
 s+=Fibonacci[j];
 ];
Print[s];

2009年3月11日星期三，再次精简代码

i=3;s=0;
While[Fibonacci[i]<4*10^6,s+=Fibonacci[i];i+=3]//Timing
s

{0.016,Null}

4613732