|
|
A153417
|
|
Primes p such that p+14 is also prime.
|
|
13
|
|
|
3, 5, 17, 23, 29, 47, 53, 59, 83, 89, 113, 137, 149, 167, 179, 197, 227, 257, 263, 269, 293, 317, 353, 359, 383, 419, 443, 449, 509, 557, 563, 587, 593, 599, 617, 647, 659, 677, 719, 743, 773, 797, 809, 839, 863, 953, 977, 983, 1019, 1049, 1103, 1109, 1187
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
3+14=17, 5+14=19, etc.
|
|
MATHEMATICA
|
lst={}; d=14; Do[p=Prime[n]; If[PrimeQ[p+d], AppendTo[lst, p]], {n, 6!}]; lst
Select[Prime[Range[2, 200]], PrimeQ[( # + 14)]&] (* Vincenzo Librandi, Apr 14 2013 *)
|
|
PROG
|
(Magma) [p: p in PrimesUpTo(1200) | IsPrime(p + 14)]; // Vincenzo Librandi, Apr 14 2013
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|