Product of min and max prime factors: Difference between revisions
Content added Content deleted
(Added Quackery.) |
|||
Line 1,494: | Line 1,494: | ||
<pre> |
<pre> |
||
1 4 9 4 25 6 49 4 9 10 |
1 4 9 4 25 6 49 4 9 10 |
||
121 6 169 14 15 4 289 6 361 10 |
|||
21 22 529 6 25 26 9 14 841 10 |
|||
961 4 33 34 35 6 1369 38 39 10 |
|||
1681 14 1849 22 15 46 2209 6 49 10 |
|||
51 26 2809 6 55 14 57 58 3481 10 |
|||
3721 62 21 4 65 22 4489 34 69 14 |
|||
5041 6 5329 74 15 38 77 26 6241 10 |
|||
9 82 6889 14 85 86 87 22 7921 10 |
|||
91 46 93 94 95 6 9409 14 33 10 |
|||
</pre> |
|||
=={{header|Quackery}}== |
|||
<code>primefactors</code> is defined at [[Prime decomposition#Quackery]]. |
|||
<syntaxhighlight lang="Quackery"> ' [ 1 ] |
|||
99 times |
|||
[ i^ 2 + primefactors |
|||
dup 0 peek |
|||
swap -1 peek * |
|||
join ] |
|||
witheach |
|||
[ number$ |
|||
space 4 of |
|||
swap join |
|||
-5 split nip |
|||
echo$ |
|||
i^ 10 mod 9 = |
|||
if cr else sp ]</syntaxhighlight> |
|||
{{out}} |
|||
<pre> 1 4 9 4 25 6 49 4 9 10 |
|||
121 6 169 14 15 4 289 6 361 10 |
121 6 169 14 15 4 289 6 361 10 |
||
21 22 529 6 25 26 9 14 841 10 |
21 22 529 6 25 26 9 14 841 10 |