|
%I #23 Feb 04 2024 01:16:03
%S 0,3,4,6,7,11,20,27,28,42,47,49,53,55,56,59,62,66,67,69,74,75,88,89,
%T 105,108,115,117,118,125,130,137,138,140,144,150,151,154,159,165,180,
%U 182,188,195,206,227,231,237,243,248,249,251,258,262,269,279,284,286,287
%N Numbers k such that 30*k + 17 and 30*k + 19 are twin primes.
%H Amiram Eldar, <a href="/A089161/b089161.txt">Table of n, a(n) for n = 1..10000</a>
%e 3 is a term since 30*3 + 17 = 107, 30 * 3 + 19 = 109, and (107, 109) are twin primes.
%p a:=proc(n) if isprime(30*n+17)=true and isprime(30*n+19)=true then n else fi end: seq(a(n),n=0..400); # _Emeric Deutsch_, Jun 13 2005
%t Select[Range[0, 300], And @@ PrimeQ[30# + {17, 19}] &] (* _Amiram Eldar_, Jan 27 2020 *)
%Y Intersection of A158648 and A158806.
%Y Cf. A001097 (twin primes).
%K easy,nonn
%O 1,2
%A _Pierre CAMI_, Dec 06 2003
%E More terms from _Emeric Deutsch_, Jun 13 2005
|
