ListPlot3D gives no results?

Hi
i have a program, i tried to plot the list but it gives no result.
What’s wrong with this code? please help me.

I didn’t try summing over m from 0 to infinity, but if I sum over m from 0 to 3 or 0 to 6 and then I do

ListPlot3D[Partition[Flatten[NeABC],3]]

then that gets rid of all the extra {} and then breaks it into groups of 3 and I see the plot.