RosettaCodeData/Task/Fibonacci-sequence/PARI-GP/fibonacci-sequence-18.pari
2018-06-22 20:57:24 +00:00

1 line
82 B
Text

fib(n)=my(k=0);while(n--,k++;while(!issquare(5*k^2+4)&&!issquare(5*k^2-4),k++));k