Primes which contain only one odd digit: Difference between revisions
Content added Content deleted
No edit summary |
(add RPL) |
||
Line 1,014: | Line 1,014: | ||
Found 45 prime numbers |
Found 45 prime numbers |
||
done... |
done... |
||
</pre> |
|||
=={{header|RPL}}== |
|||
{{works with|HP|49g}} |
|||
≪ |
|||
→STR 0 |
|||
1 3 PICK SIZE '''FOR''' j |
|||
OVER j DUP SUB NUM 2 MOD + '''NEXT''' |
|||
NIP |
|||
≫ ≫ '<span style="color:blue>ODDCNT</span>' STO |
|||
≪ |
|||
{ } 1 |
|||
'''DO''' |
|||
NEXTPRIME |
|||
'''IF''' DUP <span style="color:blue>ODDCNT</span> 1 == '''THEN''' SWAP OVER + SWAP '''END''' |
|||
'''UNTIL''' DUP 1000 ≥ '''END''' |
|||
DROP |
|||
≫ ≫ '<span style="color:blue>TASK</span>' STO |
|||
{{out}} |
|||
<pre> |
|||
1: {3 5 7 23 29 41 43 47 61 67 83 89 223 227 229 241 263 269 281 283 401 409 421 443 449 461 463 467 487 601 607 641 643 647 661 683 809 821 823 827 829 863 881 883 887} |
|||
</pre> |
</pre> |
||