RosettaCodeData/Task/Fibonacci-sequence/PARI-GP/fibonacci-sequence-19.parigp
2024-07-13 15:19:22 -07: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