%I #12 Sep 08 2022 08:45:33
%S 0,1,5,11,21,23,25,26,33,35,36,43,53,61,70,71,86,88,110,113,116,123,
%T 135,138,163,166,168,175,176,180,186,193,196,208,225,226,235,243,253,
%U 268,273,278,281,310,333,355,373,376,386,410,413,435,438,453,455,460,478
%N Numbers k such that numbers 24*k + 17 and 24*k + 19 are twin primes.
%H Amiram Eldar, <a href="/A139534/b139534.txt">Table of n, a(n) for n = 1..10000</a>
%t a = {}; Do[If[PrimeQ[24 n + 17] && PrimeQ[24 n + 19], AppendTo[a, n]], {n, 0, 2000}]; a
%o (Magma) [k:k in [0..500]|IsPrime(24*k + 17) and IsPrime(24*k + 19)]; // _Marius A. Burtea_, Dec 31 2019
%Y Cf. A137920, A139404, A139533.
%K nonn
%O 1,3
%A _Artur Jasinski_, Apr 25 2008