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...]}. . .