|
|
A166009
|
|
Primes of the form 7 + 2*p, where p is a prime.
|
|
1
|
|
|
11, 13, 17, 29, 41, 53, 89, 101, 113, 149, 173, 233, 269, 281, 353, 389, 401, 461, 509, 521, 569, 593, 641, 701, 773, 809, 929, 941, 1013, 1049, 1181, 1193, 1289, 1301, 1361, 1373, 1409, 1493, 1553, 1601, 1721, 1733, 1889, 1901, 1913, 1949, 1973, 2069, 2129
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
13 is in the sequence because 13 = 7 + 2*3 and 3 are both primes.
|
|
MATHEMATICA
|
s={11, 13}; Do[If[PrimeQ[n]&&PrimeQ[(n-7)/2], AppendTo[s, n]], {n, 17, 10^3, 6}]; s (* Zak Seidov, Oct 23 2009 *)
Select[2#+7&/@Prime[Range[200]], PrimeQ] (* Harvey P. Dale, Dec 15 2010 *)
|
|
PROG
|
(PARI) lista(nn) = {forprime(p=2, nn, if (isprime(q=2*p+7), print1(q, ", ")); ); } \\ Michel Marcus, Nov 08 2014
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|