Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #19 Sep 13 2024 14:52:07
%S 1093,1777,1933,4073,11117,42533,42937,59263,80473,90677,98323,109717,
%T 111427,120917,138893,157627,170603,207367,227627,241333,250753,
%U 296687,305423,332303,346277,359563,360907,367163,371617,376307,404837,446417
%N Primes p such that 54*p-1, 54*p+1 and 60*p-1, 60*p+1 are twin primes.
%H Harvey P. Dale, <a href="/A138698/b138698.txt">Table of n, a(n) for n = 1..1000</a>
%e 54*1093 - 1 = 59021, 54*1093 + 1 = 59023; 60*1093 - 1 = 65579, 60*1093 + 1 = 65581; ...
%t a=54;b=60;Select[Prime[Range[14^4]],PrimeQ[a*#-1]&&PrimeQ[a*#+1]&&PrimeQ[b*#-1]&&PrimeQ[b*#+1]&]
%t Select[Prime[Range[40000]],AllTrue[{54#+1,54#-1,60#+1,60#-1},PrimeQ]&] (* _Harvey P. Dale_, Sep 22 2017 *)
%o (Magma) [p: p in PrimesUpTo(10000)| 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 nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, May 15 2008
%E More terms from _Vincenzo Librandi_, Apr 01 2010