Numbers whose count of divisors is prime: Difference between revisions
Numbers whose count of divisors is prime (view source)
Revision as of 12:53, 2 July 2023
, 10 months agoadd RPL
No edit summary |
(add RPL) |
||
Line 1,514:
done...
</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}}==
| |||