%I #20 Sep 08 2022 08:44:47
%S 3,5,17,29,47,53,59,89,107,137,149,227,347,359,383,389,443,479,503,
%T 509,557,593,599,617,659,683,743,773,839,857,887,947,953,1049,1097,
%U 1187,1217,1259,1307,1319,1373,1409,1433,1493,1499,1607,1613,1637,1667,1697,1709
%N Primes p such that 7*p + 8 is also prime.
%H Vincenzo Librandi, <a href="/A023226/b023226.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[900]], PrimeQ[7 # + 8] &] (* _Vincenzo Librandi_, May 21 2014 *)
%o (Magma) [n: n in PrimesUpTo(2000) | IsPrime(7*n+8)]; // _Vincenzo Librandi_, Nov 20 2010
%K nonn,easy
%O 1,1
%A _David W. Wilson_