How can I code manipulate-plot a sequence with complex answer ?

[peynabar (Kiavosh Peynabard)]

How can I code manipulate-plot a sequence with complex answer ?
For e.g. I code my sequence like this

seq1[q_, p_, n_] := Sqrt[q + p*seq1[q, p, n - 1]] 

and i tried it for p=5 and q=7 for finding convergence point as we shoot n to the infinity. the answer of convergence point was a complex number like this {2.5 + 0.866025i }. now i want to know how can i plot it for each {p,0,5} then manipulate it for {n, 1, 500, 1}. If you check the picture I tried to do it but i just give me a blank sheet. Any help ASAP, share your idea with me by e-mailing me!: peynabar@student.gpc.edu.

[sblinder (S M Blinder)]

Note that the definition of seq1 results in an infinite loop (gives message $RecursionLimit::reclim: Recursion depth of 1024 exceeded. >>)
You might try to first assign a value to seq1[p,q,0], then use the recursive definition. As for the graphic, you could use
Plot [{Re[seq…],Im[seq…]}. . .