Abundant odd numbers: Difference between revisions
Content added Content deleted
m (BASIC256 moved to the BASIC section.) |
(add RPL) |
||
| Line 5,917: | Line 5,917: | ||
100000000. 1000000575: divisor sum: 1 + 3 + 5 + 7 + 9 + 15 + 21 + 25 + 35 + 45 + 49 + 63 + 75 + 105 + 147 + 175 + 225 + 245 + 315 + 441 + 525 + 735 + 1225 + 1575 + 2205 + 3675 + 11025 + 90703 + 272109 + 453515 + 634921 + 816327 + 1360545 + 1904763 + 2267575 + 3174605 + 4081635 + 4444447 + 5714289 + 6802725 + 9523815 + 13333341 + 15873025 + 20408175 + 22222235 + 28571445 + 40000023 + 47619075 + 66666705 + 111111175 + 142857225 + 200000115 + 333333525 = 1083561009 |
100000000. 1000000575: divisor sum: 1 + 3 + 5 + 7 + 9 + 15 + 21 + 25 + 35 + 45 + 49 + 63 + 75 + 105 + 147 + 175 + 225 + 245 + 315 + 441 + 525 + 735 + 1225 + 1575 + 2205 + 3675 + 11025 + 90703 + 272109 + 453515 + 634921 + 816327 + 1360545 + 1904763 + 2267575 + 3174605 + 4081635 + 4444447 + 5714289 + 6802725 + 9523815 + 13333341 + 15873025 + 20408175 + 22222235 + 28571445 + 40000023 + 47619075 + 66666705 + 111111175 + 142857225 + 200000115 + 333333525 = 1083561009 |
||
done... |
done... |
||
</pre> |
|||
=={{header|RPL}}== |
|||
≪ DUP DIVIS ∑LIST SWAP DUP + ≥ |
|||
≫ '<span style="color:blue">ABUND?</span>' STO |
|||
≪ { } 1 |
|||
'''DO''' |
|||
2 + |
|||
'''IF''' DUP <span style="color:blue">ABUND?</span> '''THEN''' |
|||
DUP "*2 <" + OVER DIVIS ∑LIST + ROT SWAP + SWAP '''END''' |
|||
'''UNTIL''' OVER SIZE 25 ≥ '''END''' DROP |
|||
≫ '<span style="color:blue">TASK1</span>' STO |
|||
≪ 0 1 |
|||
'''DO''' |
|||
2 + |
|||
'''IF''' DUP <span style="color:blue">ABUND?</span> '''THEN''' SWAP 1 + SWAP '''END''' |
|||
'''UNTIL''' OVER 1000 ≥ '''END''' NIP |
|||
DUP "*2 <" + SWAP DIVIS ∑LIST + |
|||
≫ '<span style="color:blue">TASK2</span>' STO |
|||
≪ 1E9 1 - |
|||
'''DO''' |
|||
2 + |
|||
'''UNTIL''' DUP <span style="color:blue">ABUND?</span> '''END''' |
|||
DUP "*2 <" + SWAP DIVIS ∑LIST + |
|||
≫ '<span style="color:blue">TASK3</span>' STO |
|||
{{out}} |
|||
<pre> |
|||
3: { "945*2 < 1920" "1575*2 < 3224" "2205*2 < 4446" "2835*2 < 5808" "3465*2 < 7488" "4095*2 < 8736" "4725*2 < 9920" "5355*2 < 11232" "5775*2 < 11904" "5985*2 < 12480" "6435*2 < 13104" "6615*2 < 13680" "6825*2 < 13888" "7245*2 < 14976" "7425*2 < 14880" "7875*2 < 16224" "8085*2 < 16416" "8415*2 < 16848" "8505*2 < 17472" "8925*2 < 17856" "9135*2 < 18720" "9555*2 < 19152" "9765*2 < 19968" "10395*2 < 23040" "11025*2 < 22971" } |
|||
2: "492975*2 < 1012336" |
|||
1: 1000000575*2 < 2083561584 |
|||
</pre> |
</pre> |
||