|
|
A112530
|
|
Numbers k such that prime(k) +/- k and prime(k) +/- 2k are all primes.
|
|
4
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Are all terms divisible by 30?
|
|
LINKS
|
|
|
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 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|