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