Numbers whose count of divisors is prime: Difference between revisions
Content added Content deleted
No edit summary |
(add RPL) |
||
Line 1,514: | Line 1,514: | ||
done... |
done... |
||
</pre> |
</pre> |
||
=={{header|RPL}}== |
|||
{{works with|HP|49}} |
|||
≪ { } |
|||
1 999 '''FOR''' j |
|||
j DIVIS SIZE |
|||
'''IF''' DUP 2 == '''THEN''' DROP '''ELSE''' |
|||
'''IF''' ISPRIME? '''THEN''' j + '''END''' |
|||
'''END''' |
|||
'''NEXT''' |
|||
≫ '<span style="color:blue">TASK</span>' STO |
|||
{{out}} |
|||
<pre> |
|||
1; { 4 9 16 25 49 64 81 121 169 289 361 529 625 729 841 961 } |
|||
</pre> |
|||
Runs in 2 minutes 16 seconds on a HP-50g. |
|||
=={{header|Rust}}== |
=={{header|Rust}}== |