Zsigmondy numbers: Difference between revisions

Content added Content deleted
No edit summary
No edit summary
Line 360: Line 360:


<syntaxhighlight lang="mathematica">
<syntaxhighlight lang="mathematica">
Attributes[zsigmondy] = Listable;
zsigmondy[a_Integer, b_Integer, n_Integer] := (
Attributes[zsigmondy] = Listable;
zsigmondy[a_Integer, b_Integer, 1] := a - b /; a >= b;
zsigmondy[a_Integer, b_Integer, 1] := a - b /; a >= b;
zsigmondy[a_Integer, b_Integer, n_Integer] := (
zsigmondy[a_Integer, b_Integer, n_Integer] := (