RosettaCodeData/Task/Fibonacci-sequence/PARI-GP/fibonacci-sequence-19.parigp

2 lines
82 B
Text
Raw Permalink Normal View History

2024-07-13 15:19:22 -07:00
fib(n)=my(k=0);while(n--,k++;while(!issquare(5*k^2+4)&&!issquare(5*k^2-4),k++));k