Zsigmondy numbers: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 341: | Line 341: | ||
=={{header|Mathematica}}/{{header|Wolfram Language}}== |
=={{header|Mathematica}}/{{header|Wolfram Language}}== |
||
⚫ | |||
Return the Zsigmondy-number to a,b,n integer: |
Return the Zsigmondy-number to a,b,n integer: |
||
Program: |
|||
<syntaxhighlight lang="mathematica"> |
<syntaxhighlight lang="mathematica"> |
||
Attributes[zsigmondy] = Listable; |
|||
zsigmondy[a_Integer, b_Integer, 1] := a - b /; a >= b; |
|||
zsigmondy[a_Integer, b_Integer, n_Integer] := ( |
zsigmondy[a_Integer, b_Integer, n_Integer] := ( |
||
⚫ | |||
If[ |
|||
kishatvany = a^Range[n - 1] - b^Range[n - 1]; |
|||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
Commonest[revesedelements, 1]) /; a >= b |
|||
⚫ | |||
</syntaxhighlight> |
</syntaxhighlight> |
||
⚫ | |||
<syntaxhighlight lang="mathematica"> |
<syntaxhighlight lang="mathematica"> |
||
zsigmondy[a_Integer, b_Integer, n_Integer] := ( |
zsigmondy[a_Integer, b_Integer, n_Integer] := ( |
||
Attributes[zsigmondy] = Listable; |
|||
If[ |
|||
zsigmondy[a_Integer, b_Integer, 1] := a - b /; a >= b; |
|||
n == 1, Return[{a - b}], Return[hatvanyok = a^Range[n] - b^Range[n]; |
|||
zsigmondy[a_Integer, b_Integer, n_Integer] := ( |
|||
⚫ | |||
hatvanyok = a^Range[n] - b^Range[n]; |
|||
⚫ | |||
⚫ | |||
biggestelement = Part[hatvanyok, n]; |
|||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
Commonest[revesedelements, 1]]]) |
|||
revesedelements = ReverseSort[firstelement]; |
|||
⚫ | |||
l1 = Table[zsigmondy[2, 1, k], {k, Range[10]}]; |
l1 = Table[zsigmondy[2, 1, k], {k, Range[10]}]; |