login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A046117 Primes p such that p-6 is also prime. (Upper of a pair of sexy primes.) 62
11, 13, 17, 19, 23, 29, 37, 43, 47, 53, 59, 67, 73, 79, 89, 103, 107, 109, 113, 137, 157, 163, 173, 179, 197, 199, 229, 233, 239, 257, 263, 269, 277, 283, 313, 317, 337, 353, 359, 373, 379, 389, 439, 449, 463, 467, 509, 547, 563, 569, 577, 593, 599, 607, 613 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

T. D. Noe, Table of n, a(n) for n = 1..1000

Eric Weisstein's World of Mathematics, Sexy Primes.

FORMULA

a(n) = A087695(n) + 3.

a(n) = A023201(n) + 6. - M. F. Hasler, Jan 02 2020

MATHEMATICA

q=6; a={}; Do[p1=Prime[n]; p2=p1+q; If[PrimeQ[p2], AppendTo[a, p2]], {n, 7^2}]; a "and/or" Select[Prime[Range[3, 7^2]], PrimeQ[ # ]&&PrimeQ[ #-6]&] (* Vladimir Joseph Stephan Orlovsky, Aug 07 2008 *)

Select[Prime[Range[4, 200]], PrimeQ[#-6]&] (* Harvey P. Dale, Mar 31 2018 *)

PROG

(PARI) forprime(p=2, 1e4, if(isprime(p-6), print1(p", "))) \\ Charles R Greathouse IV, Jul 15 2011

(MAGMA) [p:p in PrimesInInterval(7, 650)| IsPrime(p-6)]; // Marius A. Burtea, Jan 03 2020

CROSSREFS

Cf. A023201, A098428, A087695.

Sequence in context: A052293 A038842 A293660 * A240900 A091923 A050719

Adjacent sequences:  A046114 A046115 A046116 * A046118 A046119 A046120

KEYWORD

nonn

AUTHOR

Eric W. Weisstein

EXTENSIONS

Name edited by M. F. Hasler, Jan 02 2020

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified July 3 08:14 EDT 2020. Contains 335417 sequences. (Running on oeis4.)