A112530 - OEIS

%I #14 Jul 23 2023 08:49:53

%S 720,1920,5580,14370,17160,21090,26040,28560,38280,43680,43890,50730,

%T 60090,77850,100800,104760,120060,125190,155100,167850,171780,193260,

%U 202470,206460,211860,217830,221880,224070,249900,249990,252420,261960

%N Numbers k such that prime(k) +/- k and prime(k) +/- 2k are all primes.

%C Are all terms divisible by 30?

%C Union of A064403 and A112529.

%H Harvey P. Dale, <a href="/A112530/b112530.txt">Table of n, a(n) for n = 1..228</a>(all terms up to 5 million)

%t Select[Range[720, 2000000, 10], PrimeQ[Prime[ # ]+# ]&&PrimeQ[Prime[ # ]-# ]&&PrimeQ[Prime[ # ]+2# ]&&PrimeQ[Prime[ # ]-2# ]&]

%t Select[Range[262000],AllTrue[Prime[#]+{#,-#,2#,-2#},PrimeQ]&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Jun 02 2021 *)

%Y Cf. A064403, A112529.

%K nonn

%O 1,1

%A _Zak Seidov_, Sep 10 2005