Double Twin Primes: Difference between revisions
added Arturo
(Double Twin Primes in Tiny BASIC) |
Drkameleon (talk | contribs) (added Arturo) |
||
Line 70:
Found 5 prime sequences with differences: [ 2 4 2 ] up to 1000
</pre>
=={{header|Arturo}}==
<syntaxhighlight lang="arturo">r: range .step: 2 1 1000
r | map 'x -> @[x x+2 x+6 x+8]
| select => [every? & => prime?]
| loop => print</syntaxhighlight>
{{out}}
<pre>5 7 11 13
11 13 17 19
101 103 107 109
191 193 197 199
821 823 827 829</pre>
=={{header|BASIC}}==
| |||