|
| |
|
|
A153418
|
|
Primes p such that p+18 is also prime.
|
|
8
|
|
|
|
5, 11, 13, 19, 23, 29, 41, 43, 53, 61, 71, 79, 83, 89, 109, 113, 131, 139, 149, 163, 173, 179, 181, 193, 211, 223, 233, 239, 251, 263, 293, 313, 331, 349, 379, 383, 401, 421, 431, 439, 443, 449, 461, 491, 503, 523, 569, 599, 601, 613, 641, 643, 659, 673, 683
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
LINKS
|
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
|
|
|
EXAMPLE
|
5+18=23, 11+18=29, etc.
|
|
|
MATHEMATICA
|
lst={}; d=18; Do[p=Prime[n]; If[PrimeQ[p+d], AppendTo[lst, p]], {n, 6!}]; lst
Select[Prime[Range[150]], PrimeQ[(# + 18)]&] (* Vincenzo Librandi, Apr 14 2013 *)
|
|
|
PROG
|
(MAGMA) [p: p in PrimesUpTo(1000) | IsPrime(p + 18) ]; // Vincenzo Librandi, Apr 14 2013
|
|
|
CROSSREFS
|
Cf. A153417, A049488.
Sequence in context: A087490 A140565 A191072 * A079019 A191034 A222219
Adjacent sequences: A153415 A153416 A153417 * A153419 A153420 A153421
|
|
|
KEYWORD
|
nonn,easy
|
|
|
AUTHOR
|
Vladimir Joseph Stephan Orlovsky, Dec 25 2008
|
|
|
EXTENSIONS
|
Definition improved from Bruno Berselli, Oct 31 2012
|
|
|
STATUS
|
approved
|
| |
|
|
