Multiplicatively perfect numbers: Difference between revisions
Content added Content deleted
(→{{header|C}}: Changed to include '1' as an MPN.) |
m (→{{header|Phix}}: added one) |
||
Line 255: | Line 255: | ||
=={{header|Phix}}== |
=={{header|Phix}}== |
||
Includes 1, to exclude just start with multiplicatively_perfect_numbers = 0 and r = {}. |
|||
<!--<syntaxhighlight lang="phix">(phixonline)--> |
<!--<syntaxhighlight lang="phix">(phixonline)--> |
||
<span style="color: #008080;">with</span> <span style="color: #008080;">javascript_semantics</span> |
<span style="color: #008080;">with</span> <span style="color: #008080;">javascript_semantics</span> |
||
<span style="color: #004080;">integer</span> <span style="color: #000000;">multiplicatively_perfect_numbers</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;"> |
<span style="color: #004080;">integer</span> <span style="color: #000000;">multiplicatively_perfect_numbers</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">1</span><span style="color: #0000FF;">,</span> |
||
<span style="color: #000000;">semiprime_numbers</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">0</span><span style="color: #0000FF;">,</span> |
<span style="color: #000000;">semiprime_numbers</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">0</span><span style="color: #0000FF;">,</span> |
||
<span style="color: #000000;">five_e_n</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">5e2</span> |
<span style="color: #000000;">five_e_n</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">5e2</span> |
||
<span style="color: #004080;">sequence</span> <span style="color: #000000;">r</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">{}</span> |
<span style="color: #004080;">sequence</span> <span style="color: #000000;">r</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">{</span><span style="color: #000000;">1</span><span style="color: #0000FF;">}</span> |
||
<span style="color: #008080;">for</span> <span style="color: #000000;">n</span><span style="color: #0000FF;">=</span><span style="color: #000000;">1</span> <span style="color: #008080;">to</span> <span style="color: #000000;">5e5</span> <span style="color: #008080;">do</span> |
<span style="color: #008080;">for</span> <span style="color: #000000;">n</span><span style="color: #0000FF;">=</span><span style="color: #000000;">1</span> <span style="color: #008080;">to</span> <span style="color: #000000;">5e5</span> <span style="color: #008080;">do</span> |
||
<span style="color: #004080;">sequence</span> <span style="color: #000000;">pn</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">vslice</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">prime_powers</span><span style="color: #0000FF;">(</span><span style="color: #000000;">n</span><span style="color: #0000FF;">),</span><span style="color: #000000;">2</span><span style="color: #0000FF;">)</span> |
<span style="color: #004080;">sequence</span> <span style="color: #000000;">pn</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">vslice</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">prime_powers</span><span style="color: #0000FF;">(</span><span style="color: #000000;">n</span><span style="color: #0000FF;">),</span><span style="color: #000000;">2</span><span style="color: #0000FF;">)</span> |
||
Line 266: | Line 267: | ||
<span style="color: #000000;">multiplicatively_perfect_numbers</span> <span style="color: #0000FF;">+=</span> <span style="color: #000000;">1</span> |
<span style="color: #000000;">multiplicatively_perfect_numbers</span> <span style="color: #0000FF;">+=</span> <span style="color: #000000;">1</span> |
||
<span style="color: #008080;">if</span> <span style="color: #000000;">n</span><span style="color: #0000FF;"><=</span><span style="color: #000000;">500</span> <span style="color: #008080;">then</span> <span style="color: #000000;">r</span> <span style="color: #0000FF;">&=</span> <span style="color: #000000;">n</span> <span style="color: #008080;">end</span> <span style="color: #008080;">if</span> |
<span style="color: #008080;">if</span> <span style="color: #000000;">n</span><span style="color: #0000FF;"><=</span><span style="color: #000000;">500</span> <span style="color: #008080;">then</span> <span style="color: #000000;">r</span> <span style="color: #0000FF;">&=</span> <span style="color: #000000;">n</span> <span style="color: #008080;">end</span> <span style="color: #008080;">if</span> |
||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | <span style="color: #0000FF;">{</span><span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">r</span><span style="color: #0000FF;">),</span><span style="color: #7060A8;">join</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">shorten</span><span style="color: #0000FF;">(</span><span style="color: #000000;">r</span><span style="color: #0000FF;">,</span><span style="color: #008000;">""</span><span style="color: #0000FF;">,</span><span style="color: #000000;">5</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"%d"</span><span style="color: #0000FF;">),</span><span style="color: #008000;">","</span><span style="color: #0000FF;">)})</span> |
||
<span style="color: #008080;">end</span> <span style="color: #008080;">if</span> |
<span style="color: #008080;">end</span> <span style="color: #008080;">if</span> |
||
<span style="color: #008080;">if</span> <span style="color: #7060A8;">sum</span><span style="color: #0000FF;">(</span><span style="color: #000000;">pn</span><span style="color: #0000FF;">)=</span><span style="color: #000000;">2</span> <span style="color: #008080;">then</span> |
<span style="color: #008080;">if</span> <span style="color: #7060A8;">sum</span><span style="color: #0000FF;">(</span><span style="color: #000000;">pn</span><span style="color: #0000FF;">)=</span><span style="color: #000000;">2</span> <span style="color: #008080;">then</span> |
||
Line 275: | Line 272: | ||
<span style="color: #008080;">end</span> <span style="color: #008080;">if</span> |
<span style="color: #008080;">end</span> <span style="color: #008080;">if</span> |
||
<span style="color: #008080;">if</span> <span style="color: #000000;">n</span><span style="color: #0000FF;">=</span><span style="color: #000000;">five_e_n</span> <span style="color: #008080;">then</span> |
<span style="color: #008080;">if</span> <span style="color: #000000;">n</span><span style="color: #0000FF;">=</span><span style="color: #000000;">five_e_n</span> <span style="color: #008080;">then</span> |
||
⚫ | |||
⚫ | |||
⚫ | <span style="color: #0000FF;">{</span><span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">r</span><span style="color: #0000FF;">),</span><span style="color: #7060A8;">join</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">shorten</span><span style="color: #0000FF;">(</span><span style="color: #000000;">r</span><span style="color: #0000FF;">,</span><span style="color: #008000;">""</span><span style="color: #0000FF;">,</span><span style="color: #000000;">5</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"%d"</span><span style="color: #0000FF;">),</span><span style="color: #008000;">","</span><span style="color: #0000FF;">)})</span> |
||
⚫ | |||
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"Counts under %,7d: MPNs = %,7d Semi-primes = %,7d\n"</span><span style="color: #0000FF;">,</span> |
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"Counts under %,7d: MPNs = %,7d Semi-primes = %,7d\n"</span><span style="color: #0000FF;">,</span> |
||
<span style="color: #0000FF;">{</span><span style="color: #000000;">five_e_n</span><span style="color: #0000FF;">,</span><span style="color: #000000;">multiplicatively_perfect_numbers</span><span style="color: #0000FF;">,</span><span style="color: #000000;">semiprime_numbers</span><span style="color: #0000FF;">})</span> |
<span style="color: #0000FF;">{</span><span style="color: #000000;">five_e_n</span><span style="color: #0000FF;">,</span><span style="color: #000000;">multiplicatively_perfect_numbers</span><span style="color: #0000FF;">,</span><span style="color: #000000;">semiprime_numbers</span><span style="color: #0000FF;">})</span> |
||
Line 283: | Line 284: | ||
{{out}} |
{{out}} |
||
<pre> |
<pre> |
||
150 multiplicatively perfect numbers under 500: 1,6,8,10,14,...,482,485,489,493,497 |
|||
Counts under 500: MPNs = |
Counts under 500: MPNs = 150 Semi-primes = 153 |
||
Counts under 5,000: MPNs = 1, |
Counts under 5,000: MPNs = 1,354 Semi-primes = 1,365 |
||
Counts under 50,000: MPNs = 12, |
Counts under 50,000: MPNs = 12,074 Semi-primes = 12,110 |
||
Counts under 500,000: MPNs = 108, |
Counts under 500,000: MPNs = 108,223 Semi-primes = 108,326 |
||
</pre> |
</pre> |
||