Product of min and max prime factors: Difference between revisions
Content added Content deleted
Drkameleon (talk | contribs) (added Arturo implementation) |
Alextretyak (talk | contribs) (Added 11l) |
||
Line 14: | Line 14: | ||
;*[[oeis:A066048|OEIS:A066048 - Product of smallest and greatest prime factors of n]] |
;*[[oeis:A066048|OEIS:A066048 - Product of smallest and greatest prime factors of n]] |
||
=={{header|11l}}== |
|||
{{trans|BASIC}} |
|||
<syntaxhighlight lang="11l"> |
|||
V m = 100 |
|||
V c = [0B] * (m + 1) |
|||
L(p) 2 .. Int(m ^ 0.5) |
|||
L(ci) (p * p .. m).step(p) |
|||
c[ci] = 1B |
|||
print(‘ #4’.format(1), end' ‘’) |
|||
L(i) 2 .. m |
|||
L(l) 2 .. i |
|||
I !(c[l] | i % l > 0) |
|||
L(h) (i .. 2).step(-1) |
|||
I !(c[h] | i % h > 0) |
|||
print(‘ #4’.format(l * h), end' I i % 10 == 0 {"\n"} E ‘’) |
|||
L(l).break |
|||
</syntaxhighlight> |
|||
{{out}} |
|||
<pre> |
|||
1 4 9 4 25 6 49 4 9 10 |
|||
121 6 169 14 15 4 289 6 361 10 |
|||
21 22 529 6 25 26 9 14 841 10 |
|||
961 4 33 34 35 6 1369 38 39 10 |
|||
1681 14 1849 22 15 46 2209 6 49 10 |
|||
51 26 2809 6 55 14 57 58 3481 10 |
|||
3721 62 21 4 65 22 4489 34 69 14 |
|||
5041 6 5329 74 15 38 77 26 6241 10 |
|||
9 82 6889 14 85 86 87 22 7921 10 |
|||
91 46 93 94 95 6 9409 14 33 10 |
|||
</pre> |
|||
=={{header|ALGOL 68}}== |
=={{header|ALGOL 68}}== |