OFFSET
1,1
MATHEMATICA
Union[6Range[42] + 3, Select[6Range[43] - 1, Not[PrimeQ[#]] &]] (* Alonso del Arte, Jun 05 2011 *)
PROG
(PARI) select(n->(n%6==3 && n>3) || (n%6==5 && !isprime(n)), vector(1000, i, i)) \\ Charles R Greathouse IV, Jun 05 2011
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Juri-Stepan Gerasimov, Jan 28 2010
EXTENSIONS
Entries checked by R. J. Mathar, May 19 2010
STATUS
approved