%I #17 Sep 08 2022 08:45:13
%S 13,1333333333333333,133333333333333333333333333333333333333333,
%T 133333333333333333333333333333333333333333333333333333333333333333333333333333333333
%N Primes of the form 10^k + 3*R_k, where R_k is the repunit (A002275) of length k.
%H Vincenzo Librandi, <a href="/A093671/b093671.txt">Table of n, a(n) for n = 1..9</a>
%H Makoto Kamada, <a href="https://stdkmd.net/nrr/1/13333.htm#prime">Prime numbers of the form 133...33</a>.
%H <a href="/index/Pri#Pri_rep">Index entries for primes involving repunits</a>
%t Select[Table[FromDigits[PadRight[{1}, n, 3]], {n, 500}], PrimeQ] (* _Vincenzo Librandi_, Apr 06 2019 *)
%o (Magma) [a: n in [0..100] | IsPrime(a) where a is ((4*10^n-1) div 3)]; // _Vincenzo Librandi_, Apr 06 2019
%Y Cf. A002275 (repunits), A056698 (corresponding k).
%K nonn
%O 1,1
%A _Rick L. Shepherd_, Apr 08 2004
|