A093170 Primes of the form 60*R_k + 7, where R_k is the repunit (A002275) of length k.
7, 67, 666667, 66666667, 666666667, 66666666667, 66666666666666666667, 66666666666666666666667, 66666666666666666666666666666666666666667, 666666666666666666666666666666666666666666666666666666666666667
Offset: 1
Keywords
Links
- Makoto Kamada, Prime numbers of the form 66...667.
- Makoto Kamada, Factorizations of 133...33.
- Index entries for primes involving repunits
Programs
-
Maple
A093170:=n->`if`(isprime((2*10^n+1)/3),(2*10^n+1)/3,NULL): seq(A093170(n), n=1..70); # Wesley Ivan Hurt, Sep 14 2014
-
Mathematica
Select[Table[FromDigits[PadLeft[{7},n,6]],{n,70}],PrimeQ] (* Harvey P. Dale, Jan 26 2013 *)
Extensions
Edited by Ray Chandler, Feb 23 2012
Comments