%I #13 Sep 08 2022 08:45:34
%S 31,167,269,337,439,541,643,677,881,983,1051,1153,1187,1289,1459,1493,
%T 1663,1697,1867,1901,2003,2207,2309,2377,2411,2683,2819,2887,3023,
%U 3329,3499,3533,3907,4111,4349,4451,4519,4621,4723,5233,5437,5471,5573,5641,5743
%N Primes of form 17*n - 3.
%C Also primes congruent to 31 mod 34.
%H Vincenzo Librandi, <a href="/A140540/b140540.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Range[17,15000,17]-3,PrimeQ] (* _Vladimir Joseph Stephan Orlovsky_, May 18 2011 *)
%t Select[Prime[Range[800]], MemberQ[{31}, Mod[#, 34]] &] (* _Vincenzo Librandi_, Aug 15 2012 *)
%o (Magma) [p: p in PrimesUpTo(6000) | p mod 34 eq 31 ]; // _Vincenzo Librandi_, Aug 15 2012
%Y Cf. A000040, A140541, A140542, A140545.
%K nonn,easy
%O 1,1
%A _Juri-Stepan Gerasimov_, Jun 28 2008
%E Corrected and extended by _N. J. A. Sloane_, Jul 11 2008
%E Edited by _N. J. A. Sloane_ at the suggestion of R. J. Mathar, Jul 20 2008
|