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

720, 1920, 5580, 14370, 17160, 21090, 26040, 28560, 38280, 43680, 43890, 50730, 60090, 77850, 100800, 104760, 120060, 125190, 155100, 167850, 171780, 193260, 202470, 206460, 211860, 217830, 221880, 224070, 249900, 249990, 252420, 261960

Offset: 1

Author

Zak Seidov, Sep 10 2005

Keywords

• nonn

Comments

Are all terms divisible by 30?

Union of A064403 and A112529.

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..228(all terms up to 5 million)

Crossrefs

Cf. A064403, A112529.

Programs

Mathematica

Select[Range[720, 2000000, 10], PrimeQ[Prime[ # ]+# ]&&PrimeQ[Prime[ # ]-# ]&&PrimeQ[Prime[ # ]+2# ]&&PrimeQ[Prime[ # ]-2# ]&]
Select[Range[262000],AllTrue[Prime[#]+{#,-#,2#,-2#},PrimeQ]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jun 02 2021 *)