|
%I #10 Mar 27 2021 03:52:32
%S 2053380,794006430,1659273630
%N Numbers k such that prime(k) +- k, prime(k) +- 2k, prime(k) +- 3k and prime(k) +- 4k are all primes.
%t t = {}; p = 2*3*5*7; Do[ If[ PrimeQ[Prime[p*n] - p*3n] && PrimeQ[Prime[p*n] - p*2n] && PrimeQ[Prime[p*n] - p*n] && PrimeQ[Prime[p*n] + p*n] && PrimeQ[Prime[p*n] + p*2n] && PrimeQ[Prime[p*n] + p*3n], AppendTo[t, n]], {n, 17 106}]; p*t
%Y Cf. A064403, A112530, A113567.
%K bref,nonn,more
%O 1,1
%A _Robert G. Wilson v_, Sep 20 2005
|
