|
%I #17 Sep 08 2022 08:45:15
%S 3,29,107,211,263,367,419,523,601,653,757,809,887,991,1069,1277,1303,
%T 1381,1433,1459,1511,1667,1693,1823,1901,1979,2083,2161,2213,2239,
%U 2447,2473,2551,2707,2837,3019,3253,3331,3461,3539,3617,3643,3851,3877,3929
%N Primes of the form 13*k + 3.
%H Vincenzo Librandi, <a href="/A100202/b100202.txt">Table of n, a(n) for n = 1..1000</a>
%t lst={};Do[p=13*n+3;If[PrimeQ[p],AppendTo[lst,p]],{n,0,5*5!}];lst (* _Vladimir Joseph Stephan Orlovsky_, Jan 27 2009 *)
%t Select[13*Range[0,400]+3,PrimeQ] (* _Harvey P. Dale_, Jul 07 2020 *)
%o (Magma) [ p: p in PrimesUpTo(11000) | p mod 13 eq 3 ]; // _Vincenzo Librandi_, Apr 07 2011
%K nonn,easy
%O 1,1
%A Jun Mizuki (suzuki32(AT)sanken.osaka-u.ac.jp), Dec 27 2004
|
