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