Sequence of primes by trial division: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 1,690: | Line 1,690: | ||
<pre>2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97 |
<pre>2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97 |
||
53 59 61 67 71 73 79 83 89 97 101 103 107 109 113 127 131 137 139 149</pre> |
53 59 61 67 71 73 79 83 89 97 101 103 107 109 113 127 131 137 139 149</pre> |
||
=={{header|Mathematica}} / {{header|Wolfram Language}}== |
|||
<lang Mathematica>ClearAll[primeq] |
|||
primeq[1]:=False |
|||
primeq[2]:=True |
|||
primeq[n_Integer?(GreaterThan[2])]:=Module[{}, |
|||
AllTrue[Range[2,Sqrt[n]+1],Mod[n,#]!=0&] |
|||
] |
|||
Select[Range[100],primeq]</lang> |
|||
{{out}} |
|||
<pre>{2,3,5,7,11,13,17,19,23,29,31,37,41,43,47,53,59,61,67,71,73,79,83,89,97}</pre> |
|||
=={{header|MATLAB}}== |
=={{header|MATLAB}}== |