The OEIS is supported by the many generous donors to the OEIS Foundation.
%I #21 Mar 31 2021 16:05:39
%S 25,115,133,169,187,205,259,295,385,403,475,493,511,529,565,583,637,
%T 655,745,763,781,799,817,835,871,889,925,943,961,979,1015,1105,1141,
%U 1159,1177,1195,1267,1285,1339,1357,1375,1393,1411,1465,1501
%N Odd composite numbers congruent to 7 modulo 9.
%C Subsequence of A017245 (9n + 7).
%H Odimar Fabeny, <a href="/A247683/b247683.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[18Range[100] + 7, Not[PrimeQ[#]] &] (* _Alonso del Arte_, Sep 25 2014 *)
%t 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 *)
%o (PARI) lista(nn) = {forcomposite(n=1, nn, if ((n % 2) && ((n % 9) == 7), print1(n, ", ")); ); } \\ _Michel Marcus_, Sep 22 2014
%Y Cf. A017245, A247676, A247678, A247679, A247681, A247682.
%K nonn,easy
%O 1,1
%A _Odimar Fabeny_, Sep 22 2014