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,1

Links

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

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

Cf. A153134, A153135, A153245

Sequence in context: A062675 A257668 A106095 * A030432 A090147 A348560

Adjacent sequences: A153316 A153317 A153318 * A153320 A153321 A153322

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