|
%I #19 Sep 08 2022 08:45:17
%S 0,3,5,11,15,21,23,27,33,45,47,51,53,57,63,65,71,77,81,93,101,107,117,
%T 123,125,131,135,147,155,161,167,173,183,185,195,197,201,203,207,213,
%U 221,231,251,255,257,267,273,285,287,291,293,297,305,311,315,317,333
%N Numbers k such that 7*k + 2 is prime.
%H Michael De Vlieger, <a href="/A105772/b105772.txt">Table of n, a(n) for n = 1..10000</a>
%e If k=0, then 7*k + 2 = 2 (prime).
%e If k=63, then 7*63 + 2 = 443 (prime).
%t Select[Range[0,500],PrimeQ[7#+2]&] (* _Harvey P. Dale_, Apr 21 2011 *)
%o (Magma) [n: n in [0..500]| IsPrime(7*n + 2)]; // _Vincenzo Librandi_, Feb 03 2011
%o (PARI) is(n)=isprime((7*n+2)) \\ _Charles R Greathouse IV_, Feb 17 2017
%K nonn
%O 1,2
%A _Parthasarathy Nambi_, May 04 2005
%E More terms from _Rick L. Shepherd_, May 18 2005
|
