[seqfan] Quantum effect in Mathematics

[Artur]

Dear Seqfans,
See photo:
http://tech.ph.groups.yahoo.com/group/quant-math/photos/view/98cf?b=3

I realized by Mathematica procedure
a={};Do[AppendTo[a,Log[Prime[n]^2]/Log[(Prime[n - 1]*Prime[n + 1])]], 
{n, 2, 1000}];ListPlot[a]
follow Roger Bagula sugestion

My fundamental question is that number of orbitals on the picture is 
finite or infinite ?
If finite how much is ?

Best wishes
Artur