Numbers which are the cube roots of the product of their proper divisors: Difference between revisions
Content added Content deleted
(→{{header|Perl}}: prepend pascal version) |
m (→{{header|Free Pascal}}: clarify ?) |
||
Line 717: | Line 717: | ||
=={{header|Pascal}}== |
=={{header|Pascal}}== |
||
==={{header|Free Pascal}}=== |
==={{header|Free Pascal}}=== |
||
As stated, the result are the numbers with 8 divisors.Therefor only numbers with prime decomposition of the form:<br> |
As stated, the result are the numbers with 8 = 2^3 divisors.Therefor only numbers with prime decomposition of the form:<br> |
||
8 = 2^3 ( all powers+1 must be a power of 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. |
Avoid sorting by using an array of limit size for only marking those numbers. |
||
<syntaxhighlight lang="pascal"> |
<syntaxhighlight lang="pascal"> |