%I #14 Sep 08 2022 08:45:40
%S 0,2,6,8,18,24,32,38,44,56,62,66,72,74,78,84,86,92,98,108,114,128,132,
%T 134,144,162,164,174,176,182,186,198,204,206,224,228,246,248,254,258,
%U 266,272,276,282,284,296,302,318,324,326,336,342,368,378,386,392,396
%N Numbers n such that 13n + 5 is prime.
%H Vincenzo Librandi, <a href="/A154610/b154610.txt">Table of n, a(n) for n = 1..1000</a>
%t lst={};Do[p=13*n+5;If[PrimeQ[p],AppendTo[lst,n]],{n,0,6!}];lst (* _Vladimir Joseph Stephan Orlovsky_, Jul 01 2009 *)
%t Select[Range[0, 100], PrimeQ[13#+5]&] (* _Vincenzo Librandi_, Sep 24 2012 *)
%o (Magma) [n: n in [0..410] | IsPrime(13*n+5)]; // _Vincenzo Librandi_, Sep 24 2012
%o (PARI) is(n)=isprime(13*n+5) \\ _Charles R Greathouse IV_, Sep 24 2012
%Y Cf. A102732, A154609.
%K nonn,easy
%O 1,2
%A _Vincenzo Librandi_, Jan 15 2009
%E More terms from _Vladimir Joseph Stephan Orlovsky_, Jul 01 2009
|