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

fib(n)=
{
  my(g=2^(n+1)-1);
  sum(i=2^(n-1),2^n-1,
    bitor(i,i<<1)==g
  );
}