Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #10 Jul 11 2023 12:34:45
%S 2,5,17,35,65,71,77,80,101,107,110,131,161,185,212,215,260,266,332,
%T 341,350,371,407,416,491,500,506,527,530,542,560,581,590,626,677,680,
%U 707,731,761,806,821,836,845,932
%N Numbers k for which 8*k + 1 and 8*k + 3 are twin primes.
%H Amiram Eldar, <a href="/A125822/b125822.txt">Table of n, a(n) for n = 1..10000</a>
%t Do[If[PrimeQ[8n + 1] && PrimeQ[8n + 3], Print[n]], {n, 1, 1000}]
%t Select[Range[1000],AllTrue[8#+{1,3},PrimeQ]&] (* _Harvey P. Dale_, Jul 11 2023 *)
%Y Cf. A001109, A125821.
%K nonn
%O 1,1
%A _Artur Jasinski_, Dec 10 2006