%I #10 Mar 22 2021 06:04:19
%S 527,529,899,901,1079,1081,1157,1159,1271,1273,1649,1651,1679,1681,
%T 1817,1819,1919,1921,1961,1963,2117,2119,2171,2173,2327,2329,2489,
%U 2491,2507,2509,2771,2773,2867,2869,2921,2923,3131,3133,3149,3151,3401,3403,3587,3589
%N Pairs of terms of A038512 which differ by 2.
%C In each pair, the number in between (528, 900, etc.) is always divisible by 6. - Howard Berman (howard_berman(AT)hotmail.com), Jan 02 2009
%H Amiram Eldar, <a href="/A153660/b153660.txt">Table of n, a(n) for n = 1..10000</a>
%e 527 = 17*31 and 529 = 23*23. Both are composite with no prime factor less than 13 and they differ by 2.
%t q[n_] := AllTrue[n + {0, 2}, CompositeQ[#] && FactorInteger[#][[1, 1]] >= 13 &]; Flatten @ Outer[Plus, Select[Range[3500], q], {0, 2}] (* _Amiram Eldar_, Mar 22 2021 *)
%Y Cf. A038512.
%K nonn
%O 1,1
%A Howard Berman (howard_berman(AT)hotmail.com), Dec 30 2008
%E More terms from _Amiram Eldar_, Mar 22 2021