New in Wolfram Mathematica 7: New Number Theory Capabilities  previous | next 
Plot Special Sequences
Mathematica 7 makes it easy to visualize sequences and illustrate important features.
In[1]:=

Click for copyable input
DiscretePlot[{PrimePi[k], RiemannR[k]}, {k, 1, 50}]
Out[1]=