Cullen and Woodall numbers: Difference between revisions
Content deleted Content added
Cullen and Woodall numbers in Asymptote |
add RPL |
||
Line 908: | Line 908: | ||
1 7 23 63 159 383 895 2047 4607 10239 22527 49151 106495 229375 491519 1048575 2228223 4718591 9961471 20971519 |
1 7 23 63 159 383 895 2047 4607 10239 22527 49151 106495 229375 491519 1048575 2228223 4718591 9961471 20971519 |
||
done... |
done... |
||
</pre> |
|||
=={{header|RPL}}== |
|||
≪ DUP R→B 1 ROT START SL NEXT 1 + B→R |
|||
≫ ‘'''CULLN'''’ STO |
|||
≪ '''CULLN''' 2 - |
|||
≫ ‘'''WDHAL'''’ STO |
|||
{{in}} |
|||
<pre> |
|||
≪ {} 1 20 FOR n n CULLN + NEXT ≫ EVAL |
|||
≪ {} 1 20 FOR n n WDHAL + NEXT ≫ EVAL |
|||
</pre> |
|||
{{out}} |
|||
<pre> |
|||
2: { 3 9 25 65 161 385 897 2049 4609 10241 22529 49153 106497 229377 491521 1048577 2228225 4718593 9961473 20971521 } |
|||
1: { 1 7 23 63 159 383 895 2047 4607 10239 22527 49151 106495 229375 491519 1048575 2228223 4718591 9961471 20971519 } |
|||
</pre> |
</pre> |
||
Line 935: | Line 952: | ||
2, 3, 6, 30, 75, 81, 115, 123, 249, 362, 384, 462 |
2, 3, 6, 30, 75, 81, 115, 123, 249, 362, 384, 462 |
||
</pre> |
</pre> |
||
=={{header|Rust}}== |
=={{header|Rust}}== |
||
<syntaxhighlight lang="rust">// [dependencies] |
<syntaxhighlight lang="rust">// [dependencies] |