Abundant odd numbers: Difference between revisions
Content added Content deleted
m (→{{header|REXX}}: changed wording in the REXX section header.) |
(Added Quackery.) |
||
Line 5,153: | Line 5,153: | ||
* [https://code.kx.com/q/ref/ Language Reference] |
* [https://code.kx.com/q/ref/ Language Reference] |
||
* [https://code.kx.com/q/learn/pb/abundant-odds/ The Q Playbook: Abundant Odds – analysis] |
* [https://code.kx.com/q/learn/pb/abundant-odds/ The Q Playbook: Abundant Odds – analysis] |
||
=={{header|Quackery}}== |
|||
<code>factors</code> is defined at [[Factors of an integer#Quackery]]. |
|||
<lang Quackery> [ 0 swap factors witheach + ] is sigmasum ( n --> n ) |
|||
0 -1 [ 2 + |
|||
dup sigmasum |
|||
over 2 * over < iff |
|||
[ over echo sp |
|||
echo cr |
|||
dip 1+ ] |
|||
else drop |
|||
over 25 = until ] |
|||
2drop |
|||
cr |
|||
0 -1 |
|||
[ 2 + dup sigmasum |
|||
over 2 * > if [ dip 1+ ] |
|||
over 1000 = until ] |
|||
dup echo sp sigmasum echo cr |
|||
drop |
|||
cr |
|||
999999999 |
|||
[ 2 + dup sigmasum |
|||
over 2 * > until ] |
|||
dup echo sp sigmasum echo cr</lang> |
|||
{{out}} |
|||
<pre>945 1920 |
|||
1575 3224 |
|||
2205 4446 |
|||
2835 5808 |
|||
3465 7488 |
|||
4095 8736 |
|||
4725 9920 |
|||
5355 11232 |
|||
5775 11904 |
|||
5985 12480 |
|||
6435 13104 |
|||
6615 13680 |
|||
6825 13888 |
|||
7245 14976 |
|||
7425 14880 |
|||
7875 16224 |
|||
8085 16416 |
|||
8415 16848 |
|||
8505 17472 |
|||
8925 17856 |
|||
9135 18720 |
|||
9555 19152 |
|||
9765 19968 |
|||
10395 23040 |
|||
11025 22971 |
|||
492975 1012336 |
|||
1000000575 2083561584 |
|||
</pre> |
|||
=={{header|R}}== |
=={{header|R}}== |