Repunit Prime

Author

Eric W. Weisstein
December 16, 2024

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

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

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

Sources

R49081 is prime: https://www.mersenneforum.org/node/14588/page2?postcount=35#post815645

Table

A004023

<<MathWorld`Graphs`

<<MathWorld`Repunit`

primes=RepunitPrimes[10]

primes=BFileSequence[004023]

Length[primes]

TextGrid[MapIndexed[{#2[[1]],#}&,primes],Dividers->All,Alignment->Decimal]

Compute

$Version

DateString[]

$MachineName

Do[With[{p=primes[[k]]},Print[{k,p,PrimeQ[Repunit[p]]//Timing}]],{k,8}]

Do[With[{p=primes[[k]]},Print[{k,p,PrimeQ[Repunit[p]]//Timing}]],{k,9,11}]