A093165 Primes of the form 70*R_k + 3, where R_k is the repunit (A002275) of length k.
3, 73, 773, 77773, 777777773, 777777777773, 777777777777773, 777777777777777777773
Offset: 1
Keywords
Links
Programs
-
Mathematica
Select[Table[FromDigits[PadLeft[{3},n,7]],{n,500}],PrimeQ] (* Harvey P. Dale, Jul 19 2012 *)
Comments