This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A112530 #14 Jul 23 2023 08:49:53 %S A112530 720,1920,5580,14370,17160,21090,26040,28560,38280,43680,43890,50730, %T A112530 60090,77850,100800,104760,120060,125190,155100,167850,171780,193260, %U A112530 202470,206460,211860,217830,221880,224070,249900,249990,252420,261960 %N A112530 Numbers k such that prime(k) +/- k and prime(k) +/- 2k are all primes. %C A112530 Are all terms divisible by 30? %C A112530 Union of A064403 and A112529. %H A112530 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 A112530 Select[Range[720, 2000000, 10], PrimeQ[Prime[ # ]+# ]&&PrimeQ[Prime[ # ]-# ]&&PrimeQ[Prime[ # ]+2# ]&&PrimeQ[Prime[ # ]-2# ]&] %t A112530 Select[Range[262000],AllTrue[Prime[#]+{#,-#,2#,-2#},PrimeQ]&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Jun 02 2021 *) %Y A112530 Cf. A064403, A112529. %K A112530 nonn %O A112530 1,1 %A A112530 _Zak Seidov_, Sep 10 2005