Quadrat special primes: Difference between revisions
→{{header|Ring}}
Line 288:
diff = Primes[n+1] - Primes[n]
see ""+ Primes[n] + " " + Primes[n+1] + " " + diff + nl
next
see "Found " + Len(Primes) + " of the smallest primes < 16,000 such that the difference of successive terma are the smallest quadrat numbers" + nl
see nl + "done..." + nl
Line 344 ⟶ 346:
14627 14771 144
14771 15671 900
Found 49 of the smallest primes < 16,000 such that the difference of successive terma are the smallest quadrat numbers
done...
</pre>
| |||