%I #15 Dec 31 2015 19:11:27
%S 17,23,47,71,83,107,179,191,227,251,263,359,431,443,479,503,587,647,
%T 659,683,827,839,911,947,983,1091,1151,1163,1187,1367,1439,1451,1511,
%U 1583,1619,1667,1847,1871,1907,2027,2087,2099,2207,2243,2339,2411,2459,2531,2591
%N Primes of the form 6p+5 where p is a prime.
%H Harvey P. Dale, <a href="/A126329/b126329.txt">Table of n, a(n) for n = 1..1000</a>
%t lst={};Do[p=Prime[n];p=6*p+5;If[PrimeQ[p],AppendTo[lst,p]],{n,6!}];lst (* _Vladimir Joseph Stephan Orlovsky_, Apr 04 2009 *)
%t 6#+5&/@Select[Prime[Range[100]],PrimeQ[6#+5]&] (* _Harvey P. Dale_, Dec 31 2015 *)
%Y For the corresponding primes p, see A023221.
%K nonn
%O 1,1
%A _J. M. Bergot_, Mar 09 2007
%E Corrected and extended by _N. J. A. Sloane_, Mar 10 2007
|