A093675 Primes of the form 7*10^k + 3*R_k, where R_k is the repunit (A002275) of length k.
7, 73, 733, 7333, 733333, 733333333333333333333333333333333333333333333333333333, 733333333333333333333333333333333333333333333333333333333
Offset: 1
Keywords
Links
Programs
-
Magma
[a: n in [0..200] | IsPrime(a) where a is (22*10^n-1) div 3 ]; // Vincenzo Librandi, May 08 2019
-
Mathematica
Select[Table[FromDigits[PadRight[{7},n,3]],{n,500}],PrimeQ] (* Harvey P. Dale, Nov 11 2014 *)
Comments