Lucas-Lehmer test: Difference between revisions
Content deleted Content added
PatGarrett (talk | contribs) |
PatGarrett (talk | contribs) Add TI-83 Basic section |
||
Line 1,861:
22: 655s M9941
23: 3546s M11213</pre>
=={{header|TI-83 BASIC}}==
<lang ti83b>
19->M
1->n
For(E,2,M)
If E=2
Then:0->S
Else:4->S
End
(N+1)*2-1->N
For(I,1,E-2)
Reminder(S*S-2,N)->S
End
If S=0
Then:Disp E
End
End
</lang>
{{out}}
<pre style="height:20ex">
2
3
5
7
13
17
19
</pre>
=={{header|Visual Basic .NET}}==
| |||