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

Author

Vladimir Joseph Stephan Orlovsky, Dec 25 2008

Keywords

• nonn
• easy

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

Examples

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

Links

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

Crossrefs

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

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

Programs

Magma

[p: p in PrimesUpTo(1000) | IsPrime(p+18)]; // Vincenzo Librandi, Apr 14 2013

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 *)

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

Extensions

Definition improved by Bruno Berselli, Oct 31 2012