Table[z=(x^n+y^n)/x;ContourPlot  [z ,{x,-5,5},{y,-5,5},Contours->50,PlotLabel->z,Exclusions->x==0],{n,6}]