|
%I #15 Sep 08 2022 08:45:33
%S 43,113,9283,13147,14057,17977,26893,34273,47123,47543,56477,60887,
%T 75557,123803,137873,153623,163337,201797,250307,284747,325697,333787,
%U 349637,356287,358597,447217,455687,538943,561553,563263,582317,616757
%N Primes p such that 24*p-1, 24*p+1 and 30*p-1, 30*p+1 are twin primes.
%H Vincenzo Librandi, <a href="/A138695/b138695.txt">Table of n, a(n) for n = 1..1600</a>
%e 24*43-1=1031, 24*43+1=1033; 30*43-1=1289, 30*43+1=1291.
%t a=24;b=30;Select[Prime[Range[14^4]],PrimeQ[a*#-1]&&PrimeQ[a*#+1]&&PrimeQ[b*#-1]&&PrimeQ[b*#+1]&]
%o (Magma) [p: p in PrimesUpTo(1000)| IsPrime(24*p-1) and IsPrime(24*p+1) and IsPrime(30*p-1) and IsPrime(30*p+1)]; // _Vincenzo Librandi_, Nov 24 2010
%K nonn,easy
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, May 15 2008
|
