Neighbour primes: Difference between revisions

Content added Content deleted

Inline

@@ Line 86: / Line 86: @@
 {{output}}
 <lang applescript>{3, 5, 7, 13, 19, 67, 149, 179, 229, 239, 241, 269, 277, 307, 313, 397, 401, 419, 439, 487}</lang>
+=={{header|Arturo}}==
+<lang rebol>primesUpTo500: select 1..500 => prime?
+print [pad "p" 5 pad "q" 4 pad "p*q+2" 7]
+print "--------------------"
+i: 0
+while [i < dec size primesUpTo500][
+    p: primesUpTo500\[i]
+    q: primesUpTo500\[i+1]
+    if prime? 2 + p * q [
+        prints pad to :string p 5
+        prints pad to :string q 5
+        print pad to :string 2 + p * q 8
+    ]
+    i: i + 1
+]</lang>
+{{out}}
+<pre>    p    q   p*q+2
+--------------------
+5      17
+7      37
+11      79
+17     223
+23     439
+71    4759
+151   22501
+181   32401
+233   53359
+241   57601
+251   60493
+271   72901
+281   77839
+311   95479
+317   99223
+401  159199
+409  164011
+421  176401
+443  194479
+491  239119</pre>
 =={{header|AWK}}==