OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
4813*4817*4831 + 4 + 14 = 112002971670 and 112002971670 +- 1 are primes.
MATHEMATICA
lst={}; Do[p1=Prime[n]; p2=Prime[n+1]; p3=Prime[n+2]; d1=p2-p1; d2=p3-p2; a=p1*p2*p3+d1+d2+1; If[PrimeQ[a-1]&&PrimeQ[a+1], AppendTo[lst, p3]], {n, 8!}]; lst
Select[Partition[Prime[Range[20000]], 3, 1], AllTrue[Times@@#+Total[ Differences[ #]]+ {2, 0}, PrimeQ]&][[All, 3]] (* Harvey P. Dale, Apr 22 2022 *)
PROG
(Magma) [NthPrime(k+2):k in [1..20000]| IsPrime(q-1) and IsPrime(q+1) where q is NthPrime(k)* NthPrime(k+1)* NthPrime(k+2)+ NthPrime(k+2)- NthPrime(k)+1]; // Marius A. Burtea, Dec 22 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Dec 25 2008
EXTENSIONS
Definition modified by Harvey P. Dale, Apr 22 2022
STATUS
approved