OFFSET
1,1
EXAMPLE
7*2+2=16, 7*7+2=51, 7*13+2=93,...
MATHEMATICA
a={}; Do[p=Prime[n]; If[ !PrimeQ[7*p+2], AppendTo[a, p]], {n, 8^2}]; a
Select[Prime[Range[200]], !PrimeQ[7#+2]&] (* Harvey P. Dale, Aug 05 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, May 15 2008
EXTENSIONS
More terms from Vincenzo Librandi, Apr 01 2010
STATUS
approved