Quad-power prime seeds: Difference between revisions
Quad-power prime seeds in FreeBASIC
Drkameleon (talk | contribs) (added Arturo) |
(Quad-power prime seeds in FreeBASIC) |
||
Line 182:
108,240 108,681 119,754 122,436 123,164 126,489 140,636 150,480 153,179 163,070
</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}}==
| |||