[seqfan] Quantum effect in Mathematics

Artur grafix at csl.pl
Thu Nov 13 15:13:37 CET 2008

Dear Seqfans,
See photo:

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

More information about the SeqFan mailing list