Prime differences by pooq

dim a(99)
for i=2to 541f=1
for j=2to i-1f=f*!!mod(i,j)next
a(x)=i
x=x+f
next
do?a(a(b+1)-a(b)-1)
b=b+1loop

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page