Sum of primes in odd positions is prime: Difference between revisions
Content added Content deleted
m (→{{header|RPL}}: works with HP-49+) |
(Added Quackery.) |
||
Line 672: | Line 672: | ||
119 653 17,959 |
119 653 17,959 |
||
143 823 26,879 |
143 823 26,879 |
||
</pre> |
|||
=={{header|Quackery}}== |
|||
<code>isprime</code> is defined at [[Primality by trial division#Quackery]]. |
|||
<syntaxhighlight lang="Quackery"> [ dip number$ |
|||
over size - |
|||
space swap of |
|||
swap join echo$ ] is justify ( n n --> ) |
|||
[] 1000 times |
|||
[ i^ isprime if [ i^ join ] ] |
|||
[] swap witheach |
|||
[ i^ 1 & 0 = iff join else drop ] |
|||
0 swap witheach |
|||
[ tuck + dup isprime if |
|||
[ i^ 2 * 1+ 3 justify |
|||
over 5 justify |
|||
dup 7 justify |
|||
cr ] |
|||
nip ] |
|||
drop</syntaxhighlight> |
|||
{{out}} |
|||
<pre> 1 2 2 |
|||
3 5 7 |
|||
11 31 89 |
|||
27 103 659 |
|||
35 149 1181 |
|||
67 331 5021 |
|||
91 467 9923 |
|||
95 499 10909 |
|||
99 523 11941 |
|||
119 653 17959 |
|||
143 823 26879 |
|||
</pre> |
</pre> |
||