login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Numbers k for which 8*k + 1 and 8*k + 3 are twin primes.
9

%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