Pairs with common factors: Difference between revisions

 

=={{header|Maxima}}==

<syntaxhighlight lang="Maxima">/* Define the prime counting function (pcf) */

pcf(n) := n*(n - 1)/2 + 1 - sum(totient(i), i, 1, n);