%I #17 Jun 21 2022 03:14:46

%S 13,160,376,391,421,547,586,712,745,748,754,808,883,985,1006,1210,

%T 1291,1333,1375,1462,1513,1588,1702,1798,2203,2269,2302,2353,2497,

%U 2584,2854,2920,3205,3358,3436,3583,3823,3832,3856,3982,4003,4084,4138,4339,4402

%N Numbers k such that 10k+3 is composite but 10k+1, 10k+7, 10k+9 are all prime.

%H V. Raman, <a href="/A216300/b216300.txt">Table of n, a(n) for n = 1..10000</a>

%F a(n) >> n log^3 n. - _Charles R Greathouse IV_, Sep 07 2012

%t t = {}; Do[ps = Select[Range[10*n, 10*n + 9], PrimeQ]; If[ps == {10*n + 1, 10*n + 7, 10*n + 9}, AppendTo[t, n]], {n, 0, 4738}]; t (* _T. D. Noe_, Sep 03 2012 *)

%Y Cf. A032352, A007811, A078494.

%K nonn

%O 1,1

%A _V. Raman_, Sep 03 2012