Quad-power prime seeds: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (Remove draft tag. Draft for over a year, multiple implementations, little controversy) |
(New post.) |
||
Line 492: | Line 492: | ||
77685 79646 80535 82655 85251 86996 91014 96566 97739 105939 |
77685 79646 80535 82655 85251 86996 91014 96566 97739 105939 |
||
108240 108681 119754 122436 123164 126489 140636 150480 153179 163070</syntaxhighlight> |
108240 108681 119754 122436 123164 126489 140636 150480 153179 163070</syntaxhighlight> |
||
=={{header|Java}}== |
|||
<syntaxhighlight lang="java"> |
|||
import java.math.BigInteger; |
|||
public final class QuadPowerPrimeSeeds { |
|||
public static void main(String[] args) { |
|||
System.out.println("The first 50 quad-power prime seeds:"); |
|||
int index = 0; |
|||
int number = 1; |
|||
while ( index < 50 ) { |
|||
if ( isQuadPowerPrimeSeed(number) ) { |
|||
index += 1; |
|||
System.out.print(String.format("%7d%s", number, ( index % 10 == 0 ? "\n" : " " ))); |
|||
} |
|||
number += 1; |
|||
} |
|||
System.out.println(); |
|||
System.out.println("The first quad-power prime seeds greater than:"); |
|||
int multiple = 1; |
|||
while ( multiple <= 3 ) { |
|||
if ( isQuadPowerPrimeSeed(number) ) { |
|||
index += 1; |
|||
if ( number > multiple * 1_000_000 ) { |
|||
System.out.println(" " + multiple + " million is " + number + " at index " + index); |
|||
multiple += 1; |
|||
} |
|||
} |
|||
number += 1; |
|||
} |
|||
} |
|||
private static boolean isQuadPowerPrimeSeed(long number) { |
|||
BigInteger p = BigInteger.valueOf(number); |
|||
BigInteger nPlus1 = BigInteger.valueOf(number + 1); |
|||
for ( int i = 1; i <= 4; i++ ) { |
|||
if ( ! p.add(nPlus1).isProbablePrime(15) ) { |
|||
return false; |
|||
} |
|||
p = p.multiply(BigInteger.valueOf(number)); |
|||
} |
|||
return true; |
|||
} |
|||
} |
|||
</syntaxhighlight> |
|||
{{ out }} |
|||
<pre> |
|||
The first 50 quad-power prime seeds: |
|||
1 2 5 6 69 131 426 1665 2129 2696 |
|||
5250 7929 9689 13545 14154 14286 16434 19760 25739 27809 |
|||
29631 36821 41819 46619 48321 59030 60500 61955 62321 73610 |
|||
77685 79646 80535 82655 85251 86996 91014 96566 97739 105939 |
|||
108240 108681 119754 122436 123164 126489 140636 150480 153179 163070 |
|||
The first quad-power prime seeds greater than: |
|||
1 million is 1009286 at index 141 |
|||
2 million is 2015496 at index 234 |
|||
3 million is 3005316 at index 319 |
|||
</pre> |
|||
=={{header|Nim}}== |
=={{header|Nim}}== |