login
A153319
Primes p such that 6*p-7 is not prime.
1
7, 17, 37, 47, 67, 89, 97, 103, 107, 113, 127, 131, 137, 151, 157, 167, 179, 181, 191, 197, 223, 227, 233, 257, 277, 281, 283, 293, 307, 311, 317, 337, 347, 359, 367, 373, 383, 389, 397, 419, 421, 439, 443, 457, 461, 463, 467, 479, 487, 499, 509, 523, 541
OFFSET
1,1
LINKS
MATHEMATICA
lst={}; Do[p=Prime[n]; If[ !PrimeQ[6*p-7], AppendTo[lst, p]], {n, 6!}]; lst
Select[Prime[Range[100]], !PrimeQ[6#-7]&] (* Harvey P. Dale, Dec 13 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Dec 23 2008, Jan 02 2009
EXTENSIONS
Typo in definition fixed by Zak Seidov, Nov 14 2011
STATUS
approved