Numbers which are the cube roots of the product of their proper divisors: Difference between revisions

m
Minor update to Forth code
m (→‎{{header|Wren}}: Changed to Wren S/H)
m (Minor update to Forth code)
 
Line 808:
{{trans|FreeBASIC}}
<syntaxhighlight lang="forth"h>500000 constant limit
variablecreate pdc limit cells allot
 
: main
1,777

edits