editing
approved
editing
approved
Select[Range[1, 1501, 2], CompositeQ[#]&&Mod[#, 9]==7&] (* or *) Select[Range[7, 1501, 18], CompositeQ] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Mar 31 2021 *)
approved
editing
proposed
approved
editing
proposed
Select[18Range[100] + 7, Not[PrimeQ[#]] &] (* Alonso del Arte, Sep 25 2014 *)
Odd nonprimes (mod 9) = composite numbers congruent to 7 modulo 9.
Subsequence of A017245 (9*n 9n + 7).
proposed
editing
editing
proposed
Odd Nonprimes nonprimes (mod 9) = 7.
Itยดs subsequence Subsequence of A017245 (9*n + 7).
(PARI) lista(nn) = {forcomposite(n=1, nn, if ((n % 2) && ((n % 9) == 7), print1(n, ", ")); ); } \\ _Michel Marcus, _, Sep 22 2014
proposed
editing
editing
proposed
25, 115, 133, 169, 187, 205, 259, 295, 385, 403, 475, 493, 511, 529, 565, 583, 637, 655, 745, 763, 781, 799, 817, 835, 871, 889, 925, 943, 961, 979, 1015, 1105, 1141, 1159, 1177, 1195, 1267, 1285, 1339, 1357, 1375, 1393, 1411, 1465, 1501, 1519, 1537, 1555, 1573, 1591, 1645, 1681, 1717, 1735, 1771, 1807, 1825, 1843, 1897, 1915, 1969, 2005, 2023, 2041, 2059, 2077, 2095, 2149, 2167, 2185, 2257, 2275, 2329, 2365, 2401, 2419, 2455, 2491, 2509, 2527, 2545, 2563, 2581, 2599, 2635