Data update

2024-07-13 15:19:22 -07:00 · 2024-07-13 15:19:22 -07:00 · 5c1bb7bfa9
commit 5c1bb7bfa9
parent 29a5eea0d4
2011 changed files with 35081 additions and 3229 deletions
--- a/Task/Fibonacci-sequence/PARI-GP/fibonacci-sequence-18.parigp
+++ b/Task/Fibonacci-sequence/PARI-GP/fibonacci-sequence-18.parigp
@ -1 +1,7 @@
-fib(n)=my(k=0);while(n--,k++;while(!issquare(5*k^2+4)&&!issquare(5*k^2-4),k++));k
+fib(n)=
+{
+  my(g=2^(n+1)-1);
+  sum(i=2^(n-1),2^n-1,
+    bitor(i,i<<1)==g
+  );
+}