|
%I #7 Mar 22 2021 05:47:48
%S 4181,4183,4187,4189,4841,4843,4847,4849,6401,6403,6407,6409,14801,
%T 14803,14807,14809,15941,15943,15947,15949,16391,16393,16397,16399,
%U 19091,19093,19097,19099,19511,19513,19517,19519,19631,19633,19637,19639,24581,24583,24587,24589
%N Members of A038512 of the form k, k+2, k+6, k+8.
%C In each set of 4, k+4 (4185, 4845, 6405, etc.) is always divisible by 15.
%H Amiram Eldar, <a href="/A155511/b155511.txt">Table of n, a(n) for n = 1..10000</a>
%e 4841 = 47*103, 4843 = 29*167, 4847 = 37*131 and 4849 = 13*373. All are composite with no prime factor less than 13 and they form a sequence k, k+2, k+6, k+8.
%t q[n_] := AllTrue[n + {0, 2, 6, 8}, CompositeQ[#] && FactorInteger[#][[1, 1]] >= 13 &]; Flatten @ Outer[Plus, Select[Range[25000], q], {0, 2, 6, 8}] (* _Amiram Eldar_, Mar 22 2021 *)
%Y Cf. A038512.
%K nonn
%O 1,1
%A Howard Berman (howard_berman(AT)hotmail.com), Jan 23 2009
%E Missing terms inserted by _Amiram Eldar_, Mar 22 2021
|
