Prime Triplet

Author

Eric W. Weisstein
April 23, 2019

This notebook downloaded from http://mathworld.wolfram.com/notebooks/PrimeNumbers/PrimeTriplet.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/PrimeTriplet.html.

©2019 Wolfram Research, Inc. except for portions noted otherwise

Record

https://primes.utm.edu/primes/page.php?id=126416

p=4111286921397 2^66420-1;

IntegerLength/@(ps=Table[p+k,{k,{0,2,6}}])

Do[Print[{k,PrimeQ[p+k]//Timing}],{k,{0,2,6}}]