A138698 Primes p such that 54*p-1, 54*p+1 and 60*p-1, 60*p+1 are twin primes.

1093, 1777, 1933, 4073, 11117, 42533, 42937, 59263, 80473, 90677, 98323, 109717, 111427, 120917, 138893, 157627, 170603, 207367, 227627, 241333, 250753, 296687, 305423, 332303, 346277, 359563, 360907, 367163, 371617, 376307, 404837, 446417

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Example

54*1093 - 1 = 59021, 54*1093 + 1 = 59023; 60*1093 - 1 = 65579, 60*1093 + 1 = 65581; ...

Mathematica

a=54; b=60; Select[Prime[Range[14^4]], PrimeQ[a*#-1]&&PrimeQ[a*#+1]&&PrimeQ[b*#-1]&&PrimeQ[b*#+1]&]
Select[Prime[Range[40000]], AllTrue[{54#+1, 54#-1, 60#+1, 60#-1}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Sep 22 2017 *)

Prog

(Magma) [p: p in PrimesUpTo(1000)| IsPrime(54*p-1) and IsPrime(54*p+1) and IsPrime(60*p-1) and IsPrime(60*p+1)] // Vincenzo Librandi, Nov 24 2010

Crossrefs

Sequence in context: A174422 A255838 A253234 * A342390 A252520 A023698

Adjacent sequences: A138695 A138696 A138697 * A138699 A138700 A138701

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, May 15 2008

Extensions

More terms from Vincenzo Librandi, Apr 01 2010

Status

approved