Numbers whose count of divisors is prime: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add CLU) |
|||
Line 489: | Line 489: | ||
52441 54289 57121 58081 59049 63001 65536 66049 69169 72361 |
52441 54289 57121 58081 59049 63001 65536 66049 69169 72361 |
||
73441 76729 78961 80089 83521 85849 94249 96721 97969 |
73441 76729 78961 80089 83521 85849 94249 96721 97969 |
||
</pre> |
|||
=={{header|Mathematica}} / {{header|Wolfram Language}}== |
|||
<lang Mathematica>max = 100000; |
|||
maxPrime = NextPrime[Sqrt@max, -1]; |
|||
maxPower = NextPrime[Log[2, max], -1]; |
|||
base = NestWhileList[NextPrime, 2, # < maxPrime &]; |
|||
g = NestWhileList[NextPrime, 3, # < maxPower &] - 1; |
|||
ans = Sort@Select[Flatten@Table[base^n, {n, g}], # < max &]; |
|||
Labeled[Partition[Select[ans, # < 1000 &], UpTo[8]] // |
|||
TableForm, "Numbers up to 1000 with prime divisor counts:", Top] |
|||
Labeled[Partition[ans, UpTo[8]] // |
|||
TableForm, "Numbers up to 100,000 with prime divisor counts:", Top]</lang> |
|||
{{out}}<pre> |
|||
Numbers up to 1000 with prime divisor counts: |
|||
4 9 16 25 49 64 81 121 |
|||
169 289 361 529 625 729 841 961 |
|||
Numbers up to 100,000 with prime divisor counts: |
|||
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 66049 69169 72361 73441 76729 78961 |
|||
80089 83521 85849 94249 96721 97969 |
|||
</pre> |
</pre> |
||