OFFSET
1,1
MATHEMATICA
Select[14*Range[0, 100]+9, CompositeQ] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Apr 28 2018 *)
PROG
(Magma) [(14*n+9): n in [0..100]|not IsPrime(14*n+9)] // Vincenzo Librandi, Dec 18 2010
CROSSREFS
KEYWORD
nonn,less
AUTHOR
Juri-Stepan Gerasimov, Jun 13 2008
EXTENSIONS
Edited by R. J. Mathar, Jun 16 2008
STATUS
approved