|
%I #8 Sep 08 2022 08:45:41
%S 3,5,11,17,23,41,47,83,101,107,137,167,233,251,311,317,347,353,383,
%T 467,503,521,587,593,647,683,761,797,857,941,1013,1031,1103,1181,1187,
%U 1223,1301,1433,1493,1571,1607,1721,1847,1907,1913,1931,1973,1997,2081,2153
%N Primes p such that 13*p + 8 is also prime.
%H Vincenzo Librandi, <a href="/A155938/b155938.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[2500]], PrimeQ[(13*# + 8)]&] (* _Vincenzo Librandi_, Oct 30 2012 *)
%o (Magma) [p: p in PrimesUpTo(2200)| IsPrime(13*p + 8)]; // _Vincenzo Librandi_, Oct 30 2012
%Y Cf. A092178, A155937, A155939.
%K nonn,easy
%O 1,1
%A _Vincenzo Librandi_, Jan 31 2009
|
