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

m
(→‎{{header|Perl}}: prepend pascal version)
Line 717:
=={{header|Pascal}}==
==={{header|Free Pascal}}===
As stated, the result are the numbers with 8 = 2^3 divisors.Therefor only numbers with prime decomposition of the form:<br>
a^7,8 = a2^3*b and a*b*c ( a,b,call |powers+1 primemust andbe a>b>c (power oBdAof )2 )<br>
a^7 , a^3*b ( a <> b) and a*b*c (a>b>c ( oBdA ) ), of cause all prime<br>
Avoid sorting by using an array of limit size for only marking those numbers.
<syntaxhighlight lang="pascal">
132

edits