OFFSET
1,1
COMMENTS
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Table[30n + 7, {n, 100}], Not[PrimeQ[#]] &] (* Alonso del Arte, Nov 03 2013 *)
Select[Range[7, 3000, 30], CompositeQ] (* Harvey P. Dale, Oct 09 2023 *)
PROG
(PARI) forstep(p=7, 1999, 30, isprime(p)||print1(p", "))
CROSSREFS
KEYWORD
nonn
AUTHOR
M. F. Hasler, Nov 02 2013
STATUS
approved