Numbers whose count of divisors is prime: Difference between revisions
Content added Content deleted
m (→{{header|REXX}}: changed search for positive integers to square integers.) |
(Add Factor) |
||
Line 136: | Line 136: | ||
73441 76729 78961 80089 83521 85849 94249 96721 97969 |
73441 76729 78961 80089 83521 85849 94249 96721 97969 |
||
Count: 79 |
Count: 79 |
||
</pre> |
|||
=={{header|Factor}}== |
|||
{{works with|Factor|0.99 2021-06-02}} |
|||
<lang factor>USING: formatting grouping io kernel math math.primes |
|||
math.primes.factors math.ranges sequences sequences.extras ; |
|||
FROM: math.extras => integer-sqrt ; |
|||
: odd-prime? ( n -- ? ) dup 2 = [ drop f ] [ prime? ] if ; |
|||
: pdc-upto ( n -- seq ) |
|||
integer-sqrt [1,b] |
|||
[ sq ] [ divisors length odd-prime? ] map-filter ; |
|||
100,000 pdc-upto 10 group [ [ "%-8d" printf ] each nl ] each</lang> |
|||
{{out}} |
|||
<pre> |
|||
4 9 16 25 49 64 81 121 169 289 |
|||
361 529 625 729 841 961 1024 1369 1681 1849 |
|||
2209 2401 2809 3481 3721 4096 4489 5041 5329 6241 |
|||
6889 7921 9409 10201 10609 11449 11881 12769 14641 15625 |
|||
16129 17161 18769 19321 22201 22801 24649 26569 27889 28561 |
|||
29929 32041 32761 36481 37249 38809 39601 44521 49729 51529 |
|||
52441 54289 57121 58081 59049 63001 65536 66049 69169 72361 |
|||
73441 76729 78961 80089 83521 85849 94249 96721 97969 |
|||
</pre> |
</pre> |
||