Neighbour primes: Difference between revisions
Content added Content deleted
m (→{{header|Ksh}}) |
|||
Line 531: | Line 531: | ||
np=$(_neighbourprime ${i} parr) |
np=$(_neighbourprime ${i} parr) |
||
(( np > 0 )) && printf "%3d %3d %6d\n" ${parr[i]} ${parr[i+1]} ${np} |
(( np > 0 )) && printf "%3d %3d %6d\n" ${parr[i]} ${parr[i+1]} ${np} |
||
done</lang |
done</lang> |
||
{{out}}<pre> |
|||
p q p*q+2 |
p q p*q+2 |
||
--- --- ----- |
--- --- ----- |
||
Line 553: | Line 554: | ||
419 421 176401 |
419 421 176401 |
||
439 443 194479 |
439 443 194479 |
||
487 491 239119 |
487 491 239119 |
||
</pre> |
|||
=={{header|Mathematica}}/{{header|Wolfram Language}}== |
=={{header|Mathematica}}/{{header|Wolfram Language}}== |