Numbers which are the cube roots of the product of their proper divisors: Difference between revisions
Numbers which are the cube roots of the product of their proper divisors (view source)
Revision as of 00:14, 23 October 2022
, 1 year agoAdded Quackery.
(Added Go) |
(Added Quackery.) |
||
Line 865:
</syntaxhighlight>
Output same as first algorithm.
=={{header|Quackery}}==
<code>factors</code> is defined at [[Factors of an integer#Quackery]].
<syntaxhighlight lang="Quackery"> ' [ 1 ] 1
[ 1+ dup
factors size 8 = until
tuck join swap
over size 50000 = until ]
drop
dup 50 split drop echo cr cr
dup 499 peek echo cr cr
dup 4999 peek echo cr cr
49999 peek echo</syntaxhighlight>
{{out}}
<pre>[ 1 24 30 40 42 54 56 66 70 78 88 102 104 105 110 114 128 130 135 136 138 152 154 165 170 174 182 184 186 189 190 195 222 230 231 232 238 246 248 250 255 258 266 273 282 285 286 290 296 297 ]
2526
23118
223735</pre>
=={{header|Raku}}==
| |||