Quad-power prime seeds: Difference between revisions
Content added Content deleted
Drkameleon (talk | contribs) (added Arturo) |
(Quad-power prime seeds in FreeBASIC) |
||
Line 182: | Line 182: | ||
108,240 108,681 119,754 122,436 123,164 126,489 140,636 150,480 153,179 163,070 |
108,240 108,681 119,754 122,436 123,164 126,489 140,636 150,480 153,179 163,070 |
||
</pre> |
</pre> |
||
=={{header|FreeBASIC}}== |
|||
<syntaxhighlight lang="vb">#include "isprime.bas" |
|||
Function isQuadPowerPrime(n As Uinteger) As Boolean |
|||
Dim As Uinteger p(n) |
|||
Dim As Uinteger k = n + 1 |
|||
Return isPrime(n+n+1) And isPrime((n*n)+(n+1)) And _ |
|||
isPrime((n*n*n)+(n+1)) And isPrime((n^4)+(n+1)) |
|||
End Function |
|||
Dim As Uinteger n = 1, cont = 1 |
|||
Dim As Double t0 = Timer |
|||
Print "First fifty quad-power prime seeds:" |
|||
While cont < 50 |
|||
If isQuadPowerPrime(n) Then |
|||
Print Using "###,###"; n; |
|||
If cont Mod 10 = 0 Then Print |
|||
cont += 1 |
|||
End If |
|||
n += 1 |
|||
Wend |
|||
Print: Print Timer - t0 |
|||
Print !"\nFirst quad-power prime seed greater than:" |
|||
Dim As Uinteger m = 1, c = 50 |
|||
Do |
|||
If isQuadPowerPrime(n) Then |
|||
c += 1 |
|||
If n > m * 1e6 Then |
|||
Print Using " ## million is the ###: ##########"; m; c; n |
|||
m += 1 |
|||
If m = 11 Then Exit Do |
|||
End If |
|||
End If |
|||
n += 1 |
|||
Loop |
|||
Sleep</syntaxhighlight> |
|||
=={{header|Perl}}== |
=={{header|Perl}}== |