OFFSET
1,1
MATHEMATICA
Select[Range[200], ! PrimeQ[4 # - 1] && ! PrimeQ[4 # + 1] &]
Select[Range[200], AllTrue[4#+{1, -1}, CompositeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Aug 11 2015 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Jayanta Basu, Mar 20 2013
STATUS
approved