A093176 Primes of the form 70*R_k + 1, where R_k is the repunit (A002275) of length k.
71, 7777777777771, 77777777777777777771, 77777777777777777777771, 7777777777777777777777777777771, 7777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777771
Offset: 1
Keywords
Links
Programs
-
Mathematica
Select[Table[FromDigits[PadLeft[{1},n,7]],{n,100}],PrimeQ] (* Harvey P. Dale, Jul 01 2022 *)
Extensions
Edited by Ray Chandler, Mar 06 2012
Comments