|
%I #17 Sep 08 2022 08:45:34
%S 83,127,293,337,503,547,757,967,1553,1597,1973,2017,2393,2437,2647,
%T 2857,3023,3067,3697,3863,3907,4073,4283,4327,4493,4703,4957,5167,
%U 5333,6007,6173,6217,6427,6637,6803,7013,7057,7433,7477,7643,7687,7853,8273,8317
%N Primes congruent to 83 or 127 mod 210.
%H Vincenzo Librandi, <a href="/A140771/b140771.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[1100]], MemberQ[{83, 127}, Mod[#, 210]] &] (* _Vincenzo Librandi_, Aug 15 2012 *)
%o (Magma) [p: p in PrimesUpTo(9000)|p mod 210 in {83,127}] // _Vincenzo Librandi_, Dec 18 2010
%Y Cf. A000040.
%K nonn,easy
%O 1,1
%A _Juri-Stepan Gerasimov_, Jul 28 2008
%E Corrected (7013 and 7477 inserted) by _R. J. Mathar_, Apr 27 2010
|
