|
%I #17 Sep 08 2022 08:45:33
%S 61,163,197,367,401,503,571,673,809,877,911,1013,1217,1319,1489,1523,
%T 1693,1931,1999,2203,2237,2339,2441,2543,2713,2917,3019,3121,3257,
%U 3359,3461,3529,3631,3733,3767,4073,4243,4447,4481,4549,4583,4651,4787,4889,4957
%N Primes congruent to 10 mod 17.
%H Vincenzo Librandi, <a href="/A138627/b138627.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n) ~ 16n log n. - _Charles R Greathouse IV_, Jul 02 2016
%e 17*4-7=61, 17*10-7=163, 17*12-7=197, 17*22-7=367, ...
%t a={};Do[x=17*n-7;If[PrimeQ[x],AppendTo[a,x]],{n,10^2}];a
%t Select[Prime[Range[700]], MemberQ[{10}, Mod[#, 17]]&] (* _Vincenzo Librandi_, Aug 15 2012 *)
%t Select[Range[10,5000,17],PrimeQ] (* _Harvey P. Dale_, Feb 17 2021 *)
%o (Magma) [p: p in PrimesUpTo(6000) | p mod 17 eq 10 ]; // _Vincenzo Librandi_, Aug 15 2012
%o (PARI) is(n)=isprime(n) && n%17==10 \\ _Charles R Greathouse IV_, Jul 02 2016
%Y Cf. A000040.
%K nonn,easy
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, May 14 2008
%E More terms from _N. J. A. Sloane_, Jul 11 2008
%E Edited by _N. J. A. Sloane_ at the suggestion of R. J. Mathar, Jul 20 2008
|
