login
A140559
Primes p such that p + 34 is not a prime.
9
2, 5, 11, 17, 23, 29, 31, 41, 43, 47, 53, 59, 61, 71, 83, 89, 101, 107, 109, 113, 127, 131, 137, 149, 151, 167, 173, 179, 181, 191, 197, 211, 227, 233, 239, 241, 251, 257, 263, 269, 271, 281, 293, 307, 311, 317, 331, 337, 347, 353, 359, 373, 379, 383, 389, 401
OFFSET
1,1
MATHEMATICA
lst={}; Do[p=Prime[n]; If[ !PrimeQ[p+34], AppendTo[lst, p]], {n, 7!}]; lst (* Vladimir Joseph Stephan Orlovsky, Jan 17 2009 *)
Select[Prime[Range[100]], !PrimeQ[#+34]&] (* Harvey P. Dale, Jul 14 2016 *)
PROG
(Magma)[p: p in PrimesUpTo(500)|not IsPrime(p+34)] // Vincenzo Librandi, Dec 18 2010
CROSSREFS
Sequence in context: A174237 A181580 A118754 * A067775 A140552 A138644
KEYWORD
nonn
AUTHOR
EXTENSIONS
Terms corrected by Vladimir Joseph Stephan Orlovsky, Jan 17 2009
STATUS
approved