Fix pure perl lucas sequence with Q=-1