# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/

Search: id:a138698
Showing 1-1 of 1

%I A138698 #13 Sep 08 2022 08:45:33
%S A138698 1093,1777,1933,4073,11117,42533,42937,59263,80473,90677,98323,109717,
%T A138698 111427,120917,138893,157627,170603,207367,227627,241333,250753,
%U A138698 296687,305423,332303,346277,359563,360907,367163,371617,376307,404837,446417
%N A138698 Primes p such that 54*p-1, 54*p+1 and 60*p-1, 60*p+1 are twin primes.
%H A138698 Harvey P. Dale, <a href="/A138698/b138698.txt">Table of n, a(n) for n = 1..1000</a>
%e A138698 54*1093 - 1 = 59021, 54*1093 + 1 = 59023; 60*1093 - 1 = 65579, 60*1093 + 1 = 65581; ...
%t A138698 a=54;b=60;Select[Prime[Range[14^4]],PrimeQ[a*#-1]&&PrimeQ[a*#+1]&&PrimeQ[b*#-1]&&PrimeQ[b*#+1]&]
%t A138698 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 *)
%o A138698 (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
%K A138698 nonn
%O A138698 1,1
%A A138698 _Vladimir Joseph Stephan Orlovsky_, May 15 2008
%E A138698 More terms from _Vincenzo Librandi_, Apr 01 2010

# Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE