A142096 - OEIS

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

%S 31,101,241,311,521,661,941,1151,1291,1361,1571,2131,2341,2411,2551,

%T 2621,2971,3041,3181,3251,3391,3461,3671,3881,4021,4091,4231,4441,

%U 4651,4721,4861,4931,5281,5351,5701,5981,6121,6961,7451,7591,8011,8081,8221,8291

%N Primes congruent to 31 mod 35.

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

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

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

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

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

%Y Cf. A000040.

%K nonn,easy

%O 1,1

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