|
%I #15 Sep 08 2022 08:45:48
%S 2,7,11,17,19,23,31,37,43,53,59,61,73,79,89,101,103,109,113,127,131,
%T 151,163,173,179,191,193,199,227,229,233,311,317,331,337,347,359,373,
%U 383,397,431,439,443,449,457,463,479,487,491,499,547,563,569,571,593,607
%N Primes p such that 8*p+15 is also a prime.
%H G. C. Greubel, <a href="/A166005/b166005.txt">Table of n, a(n) for n = 1..10000</a>
%t f[n_]:=PrimeQ[8*n+15]; lst={};Do[p=Prime[n];If[f[p],AppendTo[lst,p]],{n,6!}];lst
%o (Magma) [p: p in PrimesUpTo(1000)|IsPrime(8*p+15)] // _Vincenzo Librandi_, Jan 29 2011
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Oct 03 2009
%E Edited by _N. J. A. Sloane_, Oct 04 2009
|
