A153319 Primes p such that 6*p-7 is not prime.

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

Author

Vladimir Joseph Stephan Orlovsky, Dec 23 2008, Jan 02 2009

Keywords

• nonn

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..2000

Crossrefs

Cf. A153134, A153135, A153245

Programs

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 *)

Extensions

Typo in definition fixed by Zak Seidov, Nov 14 2011