A153418 Primes p such that p+18 is also prime.

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

Offset

1,1

Comments

Both p and p+18 have the same digital root (A010888). - Zak Seidov, Sep 14 2015

No term belongs to A030432. - Michel Marcus, Sep 14 2015

No term belongs to A045437. - Bruno Berselli, Sep 14 2015

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Example

5 is in sequence because 5+18=23 is also prime;
11 is in sequence because 11+18=29 is also prime.

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
(PARI) list(n)=forprime(p=1, n, if(isprime(p+18), print1(p", ")))  \\ Anders Hellström, Sep 13 2015
(Sage) [p for p in primes(700) if is_prime(p+18)]; # Bruno Berselli, Sep 14 2015

Crossrefs

Cf. A007953, A010888, A045437, A049488, A030432, A153417.

A031936 is a subsequence. - Zak Seidov, Sep 13 2015

Sequence in context: A087490 A140565 A191072 * A079019 A191034 A340466

Adjacent sequences: A153415 A153416 A153417 * A153419 A153420 A153421

Keyword

nonn,easy

Author

Vladimir Joseph Stephan Orlovsky, Dec 25 2008

Extensions

Definition improved by Bruno Berselli, Oct 31 2012

Status

approved