<<1; $e = (0,-1,1,1,-1)[$n%5]; next unless $e; say $n unless (lucas_sequence($n, 1, -1, $n+$e))[0]; } # _Dana Jacobsen

User: <<1; $e = (0,-1,1,1,-1)[$n%5]; next unless $e; say $n unless (lucas_sequence($n, 1, -1, $n+$e))[0]; } # _Dana Jacobsen

<<1; $e = (0,-1,1,1,-1)[$n%5]; next unless $e; say $n unless (lucas_sequence($n, 1, -1, $n+$e))[0]; } # _Dana Jacobsen has authored 0 sequences.