A142098 - OEIS

%I #13 Sep 08 2022 08:45:35

%S 103,173,313,383,523,593,733,1013,1153,1223,1433,1783,1993,2063,2203,

%T 2273,2693,2833,2903,3253,3323,3463,3533,3673,4093,4373,4513,4583,

%U 4723,4793,4933,5003,5563,5843,6053,6263,6473,6823,7103,7243,7523,7873,8293,8363

%N Primes congruent to 33 mod 35.

%H Vincenzo Librandi, <a href="/A142098/b142098.txt">Table of n, a(n) for n = 1..1000</a>

%t Select[Range[33, 20000, 35], PrimeQ] (* _Vladimir Joseph Stephan Orlovsky_, Jun 29 2011 *)

%t Select[Prime[Range[3000]],MemberQ[{33},Mod[#,35]]&] (* _Vincenzo Librandi_, Aug 19 2012 *)

%o (PARI) select(n->n%35==33,primes(1000)) \\ _Charles R Greathouse IV_, Jun 29 2011

%o (Magma)[p: p in PrimesUpTo(10000) | p mod 35 eq 33 ]; // _Vincenzo Librandi_, Aug 19 2012

%Y Cf. A000040.

%K nonn,easy

%O 1,1

%A _N. J. A. Sloane_, Jul 11 2008