User Portlet
| Discussions |
|---|
| We start with 1 and find primes. This is memory intensive. I can't do more than 4 steps. [Full specs at Mathematica.SE.][1] primes = {1}; Do[ limv = primes[[-1]]^2 + 2 primes[[-1]]; g = Graph[Flatten[Table[p ->... |