|
%I #33 Feb 04 2024 01:16:00
%S 0,1,2,3,6,9,10,14,15,17,21,27,29,34,35,36,38,43,48,49,57,62,64,69,70,
%T 71,79,86,90,93,108,112,115,119,122,127,128,133,136,141,142,147,149,
%U 157,164,167,174,181,183,188,191,204,218,223,225,226,240,244,274,276,295
%N Numbers k such that 30*k + 11 and 30*k + 13 are twin primes.
%H Amiram Eldar, <a href="/A089160/b089160.txt">Table of n, a(n) for n = 1..10000</a>
%e 30*3 + 11 = 101, 30*3 + 13 = 103; 101 and 103 are twin primes.
%t Select[Range[0,300],And@@PrimeQ[{30#+11,30#+13}]&] (* _Harvey P. Dale_, Aug 15 2011 *)
%o (Magma) [n: n in [0..10000]|IsPrime(30*n+11)and IsPrime(30*n+13)] // _Vincenzo Librandi_, Nov 16 2010
%Y Cf. A001097, A001359, A006512.
%K easy,nonn
%O 1,3
%A _Pierre CAMI_, Dec 06 2003
|
