|
%I #8 Jul 01 2022 13:45:17
%S 2009,4655,4949,9065,9947,13475,14945,15239,17297,25235,26117,32585,
%T 33467,37877,39935,44639,47285,52577,56399,59339,59927,61985,62867,
%U 64925,72275,75215,75509,76097,79037,82565,86387,89915,92855,94619
%N Numbers of the form 49*k, where 49*k+2 and 49*k-6 are both prime.
%H G. C. Greubel, <a href="/A153779/b153779.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n) >> n log^2 n. - _Charles R Greathouse IV_, Aug 28 2016
%e 2009 = 49*41 and both 2003 and 2011 are prime.
%t 49*Select[Range[115000], PrimeQ[49*# + 2] && PrimeQ[49*# - 6] &] (* _G. C. Greubel_, Aug 28 2016 *)
%t Select[49*Range[2000],AllTrue[#+{2,-6},PrimeQ]&] (* _Harvey P. Dale_, Jul 01 2022 *)
%o (PARI) is(n)=n%294==245 && isprime(n+2) && isprime(n-6) \\ _Charles R Greathouse IV_, Aug 28 2016
%K nonn
%O 1,1
%A _John L. Drost_, Jan 01 2009
|
